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T.   INTRODUCTION 


A.   THESIS  OBJECTIVE 

Most  existing  text  editors  and  formatters  currently 
available  are    deficient  for  various  reasons.   Soec i f i c a  1  1 y , 
most  text  edit-ors  a^e  1  i  np-o  r  i  en  t  ed  ,  many  formatters  are 
non- i n t e r ac t i ve ,  and  few  editors  and  formatters  are 
integrated  into  a  sinqle  system.   For  these  reasons,  the 
design  of  a  "better"  text  processing  system  was  undertaken 
to  demonstrate  the  feasibility  and  utility  of  such  a 
comprehensive  svstem.   Toward  this  end*  a  survev  of  the 
current  state-of-the-art  in  text  processing  was  carried 
out.   Based  on  this  research,  the  design  of  a  "better"  text 
processina  system  is  presented. 

This  system  is  an  interactive,  integrated,  screen- 
oriented,  con t ex t -or i ent ed  text  processing  system 
consisting  of  both  a  text  editor  and  formatter.   T  t  is 
designed  to  be  eas v-t o- 1  earn ,  easv-to-use,  easy-t o-enhanc e , 
and  easy-t o-ma i n t a i n .   Intended  system  users  are    non- 
computer  scientists,  e.g.  secretaries,  business  executives, 
enginpers,  students,  etc.,  who  mav  or  may  not  have 
programming  experience.   This  svstem  has  been  designed  to 
aid  in  the  preparation  of  documents  and/or  programs.   The 
system  has  been  implemented  on  existing  Naval  Postgraduate 
School  (NPS)  hardware  using  available  software. 


Four  features  characterize  this  system.   First/  it  is 
fully  integrated  in  that  the  text  editor  and  formatter  are 
not  seoarate  entities  but  como 1 emen t a ry  carts  of  a  single 
orooram.   Secondly,  this  system  is  interactive  and  provides 
the  user  with  immediate  feedback.   Third*  it  is  screen  or 
display-oriented.   A  visual  display*  on  a  cathode  ray  tube 
(CRT)-enuioDed  terminal*  serves  to  orovide  both  the  editing 
and  formattino  feedback.   The  screen-orientation  eliminates 
the  need  for  many  hardcoov  printouts  as  the  screen 
depiction  is  exactly  how  thp  final*  finished  product  will 
appear.   Finally*  manipulation  of  the  text  through  the 
screen  window  for  perusal  and  modification  is  context- 
oriented. 

B.   TEXT  EDITOR  DEFINITION 

Although  the  term  "text  editor"  is  widely  used*  it  is 
necessary  to  clearlv  define  its  meaninq  here.   Tn  qeneral* 
an  editor  is  an  interactive  comouter  program  that  allows 
the  user  to  create  and  modify  a  text  file.   This  file  is 
simply  a  sequence  o*  character  data.   An  editor  is  used  to 
write  documents  such  as  term  papers*  fheses*  letters*  etc.* 
and  proarams.   The  text  editor  performs  the  following 
tasks: 

-  provides  access  to  the  text  stream  from  both  file 
storaae  and  terminal  input* 

-  adds  text  to  the  text  file* 

-  distinguishes  between  words  and  soaces  to  solit 
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and  build  lines  of  text»  and 

alters  the  text  at  a  oiven  location  based  on 

user  specifications. 


Text  editors  are  widely  used  because  corrections  and 
modifications  to  the  text  file  are  easily  mad*>  as  oooosed 
to  re-enterinq  a  complete  u o dated  version  of  the  text. 

Most  editors  orovide  functions  to  insert*  delete*  copy* 
move*  scan  and  substitute  text  within  the  text  file.   A 
text  editor  also  provides  facilities  to  manipulate  the  text 
file  so  that  it  mav  be  created*  destroyed*  saved  or 
updated.   Displayino  and/or  print  inq  out  the  text  is  easily 
accomplished.   In  addition*  the  user  is  able  to  locate  a 
particular  location,  anywhere  in  the  file*  in  several 
different  ways.   Tho  user  can  scan  through  the  displayed 
text  by  movina  the  cursor*  by  reauestinq  the  display  of 
specified  lines  or  bv  initiatinq  a  context  search  in  which 
the  editor  attempts  to  match  a  specified  sequence  or 
pattern  of  characters. 

There  are    two  distinct  types  of  text  editors  that 
impact  upon  this  project.   The  first  cateqory  is  line- 
oriented  and  the  second  is  context-oriented.   These 
cateqories  are  described  in  the  followinq  paragraphs. 

1  .   Line-Oriented  Editors 

Line-oriented  editors  are    those  in  which  the  text  is 
loqically  divided  into  lines.   A  line  is  a  cnaracter 


seauence  that  is  delimited  within  the  file  by  a  soecial 
line  marker  at  its  beqinninq  or  end.   Lines  should  not  be 
confused  with  sentences.   This  type  of  editor  is 
distinquished  by  the  assiqnment  of  either  a  permanent  or  a 
relative  line  number  to  each  and  every  line  of  text.   These 
line  numbers  serve  as  user  reference  Doints.   Editor 
commands  include  line  numbers  to  indicate  where  the  desired 
action  is  to  occur.   The  major  advantaqe  of  line-oriented 
editors  is  their  ability  to  be  used  on  both  CRT  and 
hardcooy  terminals  and  their  tolerance  of  a  slow 
communication  rate.   In  addition,  many  secretaries  and 
typists  feel  that  a  physical  line  is  the  most  loqical  and 
reasonable  entity  to  manipulate  while  editinq.   Two  other 
factors  that  sell  line-oriented  editors  are    the  disruption 
of  touch-tyoinq  habits  on  key-defined  function  editors  and 
the  comoletely  context-free  ooeration  of  character-oriented 
edi  t ors . 

2 .   Context-Oriented  Fditors 

Context-oriented  editors  are    so  termed  because  then 
are  no  associated  line  numbers  for  reference  ourposes. 
Instead  the  text  file  is  referenced  relative  to  the 
existino  text  by  soecifvinq  a  particular  marker  or  sequence 
of  characters  in  a  context  search,  or  bv  the  usp  of 
absolute  x-y  addressinq  if  available  on  the  CRT  terminal. 
These  files  are    usually  divided  into  oaoes  which  may  or  may 
not  be  further  broken  down  into  lines.   Context  editors  are 


10 


not  generally  i mo  1 emen t ed  on  hardcoDv  terminals  op  CRT 
terminals  with  a  low  baud  rate  because  too  much  time 
elaoses  while  the  oaqe  of  text  is  printed  out  or  displayed. 
C.   TFXT  FORMATTER  DEFINITION 

A  text  formatter  or  orocessor  is  a  computer  program 
which  allows  the  user  to  manipulate  the  text  file  to 
produce  a  soec i f i ed  output  format.   Formatters  are    used  in 
document  preparation.   The  processor  keeps  track  of  the 
page  format  as  defined  by  the  page  margins*  number  of  lines 
oer  page/  and  line  s  o  a  c  i  n  a  specifications  which  are  all 
subject  to  chanoe.   It  provides  paqe  numberina, 
indentation,  headinas  and  footers*  and  an    underlining 
capability.   A  typical   t*xt  formatter*  (5*  7*  10]* 
performs  the  followino,  tasks: 

-  accesses  the  text  file  from  storaae* 

-  distinguishes  between  format  commands  and  text* 

-  provides  reasonable  and  general  default  format 
soec  i  f  i  cat  i  ons  * 

-  redefines  the  format  specifications  as  directed 
by  the  user* 

-  splits  and  concatenates  lines  of  the  original 
text  file  to  produce  lines  conforming  to  the 
output  specifications* 

-  fills  text  by  putino.  as  many  words  as  possible 
within  a  line* 
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-  outputs  blank  lines  or  skins  lines, 

-  provides  for  oaae  ejects  or  skios  to  the  too  of 
a  new  page, 

-  outDuts  irregular,  non-filled  lines  of  text, 
e.q.  titles*  when  directed  by  the  user,  and 

-  allows  the  line  to  he  centered,  r i qh t - j ust i f i ed 
(aligned  alonq  the  right  marqin),  or  underlined. 

Text  formatters  allow  drastic  format  changes  to  be 
accomplished  by  the  user  to  improve  the  document's  final 
appearance  and  thus  its  readability. 

Manv  text  processors  adjust  the  lines  of  text  which 
means  the  line  is  both  filled  and  riqht-justified  by 
insert  inq  extra  blanks  within  the  line.   Sophisticated 
formatters,  in  addition  to  the  previously  mentioned 
features,  may  provide  spelling  checks,  hyphenation, 
footnote  oroduction  and  aenpration  of  a  table  of  contents 
or  indices.   Text  Drocessors  mav  or  may  not  be  interactive 
Non- i nt erac t i ve  formatters  require  the  user  to  visualize 
the  effect  of  the  format  command  and  later  verify  the 
desired  result  by  orintinq  out  a  hardcopy  listinq  of  the 
document.   Interactive  formatters  do  not  reauire  this 
mental  transformation  and  verification  process  by  the  user 
because  the  command  result  is  immediately  apparent. 

Before  proceeding  on  to  the  survey  of  text  processing, 
it  is  aporopriate  to  define  a  text  processing  capability. 


12 


Systems  oossessina  a  text  orocessinq  caoabil ity  are    able  to 
oerform  the  previously  mentioned  tasks  of  both  an  editor 
and  formatter.   For  the  Durooses  of  this  thesis/  word 
orocessino  and  text  orocessinq  are    synonymous. 
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II .   TEXT  PPQCESSTNG  SUPVEY 

The  initial  s  t  e  o  in  this  t  h  »  s  i  s  was  to  survey  the 
current  state-of-the-art  in  text  Drocessinq.   In  this 
survey,  the  commerci  al  marketolace  was  reviewed.   In 
addition,  ten  e  x  i  s  t  i  n  q  N  P  S  text  editors  and  processors  were 
observed.   The  survey  q  o  a  1  was  to  determine  the  most 
desirable  features  of  a  text  orocessinq  system. 

A.   COMMERCIAL  TEXT  PROCESSING 

Althouqh  text  Drocessinq  has  been  around  since  the 
mid-sixties  at  academic  and  research  institutions,  it  was 
not  until  the  mid-seventies  that  it  became  commercially 
attractive.   The  t echno  1  oqi ca  1  advances  of  the  early  and 
mi d-sevent i ps  brouqht  about  a  raoid  decrease  in  both 
comouter  size  and  orice.   These  factors  made  them  very 
attractive  to  oerform  a  variety  of  tasks,  particularly  text 
procession,  in  an  automated  office.   FORTUNF's  "Trends  in 
Comoutinq--&oDli cations  for  the  8  0  '  s  "   1 2  n  ]  ,  describes 
automation's  imoact  in  this  manner,  "In  the  white  collar 
factory,  the  office,  the  computer  and  its  m i c roorocessor- 
based  offsorinq  are  incitinq  a  revolution  of  epic 
prooortions  with  word  and  text  orocessinq...."   Comouter 
vendors  of  both  hardware  and  software  are    scramblinq  to 
establish  themselves  in  the  emerqinq  office  automation 
market.   The  followinq  examoles  of  this  scramble  were  cited 
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in  the  FORTUNE  article   1201.   Data  General  nas  added  text 
procession  t o  the  commercial  caDabilities  of  its  Ecliose 
ComDuters.   in  a  n  q  has  a  i  v  e  n  all  of  its  V  S  computers  a  text 
processina  capability  throuqh  "  m  a  i  1  w  o  r  d  "  .   Germany's 
Nixdorf  disclosed  a  second  aeneration  of  distributed  data 
systems  thaf  oerform  text  orocessinq,  batch  ana     interactive 
communications,  data  entry/  and  local  file  and  data  base 
processina.   Dunn,  in  COMPUTER  DECISIONS  U1,  provides  this 
estimate  of  the  siz°  of  the  text  orocessinq  market/ 
"Revenues  from  word  orocessinq  have  jumped  from  $  Q  3  6 
million  in  19  7  7  to  $1.5  billion  in  1978  when  120,000  units 
were  acquired,  and  are    projected  to  reach  b00/000  units, 
grossinq  Tb  billion,  in  1983." 

Two  factors  causino  manaqement's  acquisition  of  text 
orocessinq  facilities  are  the  secretarial  shortage  and  the 
low  productivity  of  white  collar  and  clerical  employees. 
Dunn,  in  "The  Office  of  the  Future  Part  II"   [51,  details 
the  secretarial  oroblem  in  this  way,  "...last  year  fl  Q  7  8  J 
60,000  secretarial  iobs  went  unfilled,  thouoh  salaries  are 
risinq  more  than  10*  a  year.        Bv  the  mid-1980's  the 
secretarial  shortfall  could  reach  the  quarter  of  a  million 
mark."   Wilds,  in  "The  Smart  Way  to  Pick  Word  Processors" 
[?41,  provides  an  example  of  the  Droductivity  impact  of 
text  orocess-  inq.   A  tyoical  productivity  increase 
occurred  at  J.  C.  Penny  Co.  where  the  installation  of  text 
orocessinq  equipment-  cut  turnaround  time  on  typed  documents 


15 


from  "as  lonq  as  a  week"  to  an  averaqe  of  "next  day". 

There  are    two  Drincioal  Droducts  sold  by  text- 
processinq  vendors.   Stand-alone  text  processors  with  pric< 
taqs  of  $6,000  to  $12,000  each  are    the  most  popular.   An 
alternative,  the  ourchase  of  a  word-process i nq  oackage  for 
CPU's,  makes  text  orocessinq  another  data  processinq 
applicatinn.   These  oackaqes  cover  a  considerable  price 
ranoe  uo  to  $75,000.   Indeoendent  supoliers,  rather  than 
computer  manufacturers,  orovide  most  of  this  software.   A 
representative  samolinq  of  text  processinq  software 
packaoes,  derived  from  th«  January  1980  issue  of  COMPUTER 
DECISIONS   f 1 O]  r  packaqes  would  include  the  followinq: 

W0PD-0NE--used  with  IBM  360/40  or  above,  370/ 

135  or  above,  4300  series,  National  and 

Amdahl  systems?   sold  hy  Bowne  Information 

Systems  for  $65,000,* 

A Z-TEX T--used  with  Data  General's  Advanced 

Doeratinq  System  and  Ecliose  System;   sold  bv 

Data  General  Corooration  for  $4,000; 

DataDoint  Word  P rocess i no--used  with  Datapoint 

3S00,  1800  and  1500  series  Drocessors,*   sold  bv 

Dataooint  Corooration  *or  $750; 

Word-1 1 --used  with  DEC  RSTS/E  timesharino 

executive,"   sold  by  Data  Processinq  Desiqn,  Inc. 

for  $7,500. 
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There  are  many  text  process inq  systems  available  for 
microcomputers.   The  *ollowinq  oackaqes  are    a  few  of  those 
availaole  for  INTFL-based  8080  and  7-«0  microcomputers. 
Small  Business  Aoolications,  Inc.  markets  Magic  rtand  at 
$a00.   The  Software  Store  has  MWP  (Mini  Word  Processing 
System)  for  £19  5.   The  T  R  S  -  8  0  Microorocessor  can  use  either 
The  Electric  Pencil,  for  f 1 0 0  or  $150,  or  Scripset,  for  J69 
or  $99.   These  software  packaqes  can  be  economically 
integrated  into  existino  systems  without  the  purchase  of 
special  hard*^re. 

As  previously  mentioned,  stand-alone  or  deaicated 
systems  are    the  most  nooular.   The  vendors  of  these  systems 
market  a  complete  hardware/software  packaae  consist inq  of  a 
workstation  and  the  support  software.   These  systems 
usually  have  specialized  terminals.   "Clustered,  or  shared 
resource,  word  Drocessinq  systems  (which  rely  on  minis  and 
micros)  are    the  fastest  qrowina  word  orocessinq  segment" 
accordina  to  FORTUNE   [?01.   CPT,  Lanier,  A^  Jacquard,  Wang 
and  Xerox  are    onl v  a  few  of  the  vendors  marketing  these 
systems. 

B.   COMMERCIAL  TRENDS 

Several  interest inq  developments  are    occuring  in  text 
processino.   First,  CPT-disolays  are  inheritinq  the  market 
from  nondisplay  systems.   Tpxt  processors  that  use  hardcopy 
terminals  exclusively  are    being  recoqnized  as  less 
productive  and  less  attractive.   Also,  siqnificant  price 
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decreases  make  disDlay  systems  more  attractive.   Second/ 
there  is  a  trend  toward  resource  sharina  and  joint  text 
processing  and  data  orocessina.   In  this  area,     AXXA 
Corporation  tackles  executive  and  secretarial  productivity 
with  its  new  dual  workstation,  suooorHnq  text  orocessing, 
electronic  mail*  calculation,  data  processing  and  file 
access.   Xerox  Office  Products  announced  the  A60  Advanced 
workstation  that  oerforms  text  Drocessing,  system  book- 
keeping and  data  Drocessina.   Finally,  the  new  systems  are 
multifunctional.   Text  Drocessing  is  intearated  with 
telecommunications,  facsimile  transmission,  numeric 
processina,  electronic  mailinq,  data  entry  and  access,  and 
other  functions  such  as  search/sort*  filing,  statistics 
generation,  etc.   t?0,  ?51 

C.   EXISTING  NPS  TEXT  EDITORS  AND  FORMATTERS 

To  evaluate  the  current  state-of-the-art  on  camous,  a 
review  of  ten  editors,  formatters  or  word  orocessinq 
systems  was  undertaken.   These  systems  were  either  used  by 
the  author  or  observed  in  use.   User's  Manuals  and  other 
system  documentation  were  reviewed.   The  followina  systems 
were  exam  i  ned : 

(1)  CRT  Text  Editor  NED,  1977,  used  on  the 
POP-1  1/70,   [21  ; 

(2)  AMOS/2  Editor,  1^7?,  used  on  the  AGT-10, 

[61  ; 
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(3)  EOT  Editor,  1977,  used  on  the  PDP-11/50,   [71; 

(4)  Interactive  Display  Editor  Vi,  1979,  used  on 
the  PDP-11/50,   [13]; 

(5)  NRQFF  text  processor,  197a,  used  on  the 
PDP-1  1/50,   [161  ; 

(6)  TED  editor,  1978,  used  on  the  80*0  and  Z-80, 

ran  ; 

(7)  PRO  formatter,  1978,  used  on  the  8080  and 
Z-80,   [?ll ; 

(8)  UCSD  PASCAL  Screen-Oriented  Editor,  1978, 
used  on  the  80°0  and  Z-80,   [22]; 

(9)  UNIX  Text  Editor  Ed,  1975,  used  on  the 
PDP-1  1/50,    [2D   ;  and 

(10)  WPS-8  Word  Processino  System,  1978,  used  on 
the  PDP-«,   [26]  . 

These  systems  covered  the  entire  spectrum  of  text 
editors  and  formatters  from  the  simole,  relatively 
unsophisticated,  gene ra 1 -ou rpose  models  to  complex, 
sophisticated,  special i7ed  systems.   They  also  provided  a 
fairly  representative  historical  development  of  text 
processina  systems,  from  the  non-interactive,  line-oriented 
NROFE  formatter  (1974)  to  the  interactive,  disoay -oriented, 
context  editor  V i  (1980),  and  the  integrated,  interactive, 
screen-oriented  context  WPS-8  Word  Processing  System 
(1978)  . 
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Of  the  ten  systems  examined,  the  WPS-8  was  the  only 
stand-alone  text  processing  system.   The  other  systems  were 
run  on  qene r a  1 -ou rDnse  comDuter  systems.   Terminal 
characteristics  varied  considerably  among  the  reviewed 
systems.   ED,  NED,  MROFF  and  WPS-8  utilize  special  qrapMcs 
terminals.   NFD  and  WPS-8  reauire  soecial  function  keys. 
UNIX's  Fd  and  V i ,  PPO,  TED,  and  UCSD's  editor,  can  be  used 
on  a  wide  ranoe  of  terminals,  both  intelligent  and  dumo, 
disnlay  or  hardcooy.   A^os/?  uses  a  teletyoe. 

Of  the  editors  surveyed,  AMOS/2,  EDT,  UNIX's  Ed,  and 
TED  were  line-oriented.   The  context-oriented  editors  were 
NED,  Vi,  UCSD's  editor  and  the  WPS-8.   NED  and  UCSD's 
editor*  performed  some  formatting  functions  such  as  margin 
setting,  fillino,  centerinq,  right  justification,  etc.   Vi 
and  wPS-8  had  the  most  extensive  command  sets.  The  command 
vocabulary  was,  unfortunately,  so  extensive  that  the  user 
had  to  frequent ly  refer  to  system  documentation  for  help. 
Some  of  the  commands  were  very  similar  lookino  but 
oerformed  widely  different  functions.   The  special  function 
keys  on  the  NED  and  WPS-8  terminals  facilitated  the  editing 
Dpocess.   Editor  commands  were  aenerally  one  character 
followed  by  line  numbers  where  appropriate.   Many  commands 
were  mnemonically  indicative  of  the  action  performed. 
Cursor  oositionino  was  used  on  the  con t e x t -or i en t ed 
editors.   NED  allowed  the  editing  of  more  than  one  file  at 
the  same  time,  as  did  UNIX's  Ed.   An  additional  feature 
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provided  by  NED  was  the  caoability  to  divide  the  screen  ud 
into  as  many  as  ten  comoletely  separate  and  independent 
edit  areas. 

Of  the  formatters  surveyed,  PRO  and  NPOFF  were 
non-interactive  while  w P S - 8  was  interactive.   PPO  is  used 
as  a  dos t -orocessor  for  files  edited  with  TED,  and  orovides 
many  formattinq  features  i  n  c  1  u  d  i  n  a  footnoting.   NROFF  and 
WPS-8  provide  almost  any  formattinq  feature  ever  thouaht 
of.   Commands  were  nenerallv  two  letters  in  all  three 
systems  and  frenuently  had  numeric  arquments.   NROFF  and 
TED  are  sometimes  t i me-consum i no  to  use  because  of  their 
non-interactive  nature  and  the  user's  failure  to  correctly 
visualize  command  results. 

D.   CONCLUSIONS 

This  chaoter  has  provided  a  brief  survev  of  the 
state-of-the-art  in  text  processinq.   The  evolution  of  text 
processino.  ov«>r  the  last  ten  or  so  vears  has  been  traced. 
Non-interactive,  hardcony  systems  have  been  replaced  with 
interactive,  softcooy  or  CRT-based  systems.   Line- 
orientation  has  been  reolaced  by  con t e x t -or i en t at i on  .   In 
the  oast,  editors  and  formatters  were  separate  systems  but 
now  thev  are     fullv  inteqrated  into  a  comprehensive  text 
processino  system.   Special  hardware,  terminals  and  micro- 
and  mini-based  stand-alone  sytems,  have  been  developed  and 
are    quite  common.   Not  only  do  the  text  processino.  systems 
of  today  perform  edit  i  no  and  formattinq  duties  but  they  are 
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also  canable  of  performing  a  wide  ranqe  of  other  functions, 
such  as  svstem  bookkeepinq  and  data  processinq.  Multi- 
functional text  processinq  has  become  an  intearal  part  of 
today's  automated  office. 
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I  IT  .   DESIGN  METHODOLOGY 

A.   PRODUCT  DEFINITION 

Before  any  desian  could  be  con t emo 1  a t ed ,  the  final 
product  had  to  he  envisioned  and  defined  from  a  user's 
ooint  of  view.   The  product  of  this  effort  is  an 
integrated,  interactive,  screen-oriented  text  processing 
svstem.   SCOPE,  Screen-Oriented  Processor  and  Editor, 
performs  the  previously  defined  functions  of  both  a  text 
editor  and  formatter.   It  is  implemented  on  the  existing 
PDP-11  mainframe,  using  existing  terminals  and  software. 
SCOPE  is  aene r a  1 -purpose  and  is  not  intended  to  perform 
graohics  or    uncommon  formatting  functions,  e.g.  the 
generation  of  two  columns  of  text  necessary  for  some 
publications.   Thesis  preparation  was  a  consideration  in 
the  selection  of  desired  formatting  features. 

From  the  ten  MPS  systems  reviewed,  the  followina  were 
chosen  as  models  for  this  thesis: 

(1)  the  Vi  Interactive  Display  Editor, 

(2)  the  UCSD  PASCAL  Screen-Oriented  Editor, 

(3)  the  text  editor  TED,  and 

(4)  the  text  processor  PRO. 

In  addition,  a  UCSD  PASCAL  Formatter,  written  by  the 
author,  served  as  a  model. 
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The  goals,  the  desian  and  the  development  process  of 
SCOPE  will  he    discussed  in  the  remainder  of  this  chapter. 

B.   DESIGN  GOALS 

Further  research  was  undertaken  to  determine  the 
elements  of  a  qood  desion.   The  fol lowina  paragraphs  detail 
design  ooals,  set  for  other  design  and  implementation 
projects/  that  were  applicable  to  this  system.   These 
references,  "Overview  of  the  Functional  Features  and 
Software  Oe^ion  for  a  Disolav  Word  Processor"  [la]; 
Kerniqhan  and  Plauqher's  chapters  on  editino  and  formatting 
(151;  "Text  Handling  in  an  Automated  Office"  (17);  and 
"Development  of  an  Experimental  Display  Word  Processor  for 
Office  Aonlications"  (1^1;  served  as  the  basic  source 
document  s . 

In  SOFTWARE  TOOLS  (151,  Kerniahan  and  Plaugher  discuss 
editing  and  fnr^attinq  desiqn  factors.   The  following 
points  were  made  in  their  discussion.   Human  enaineerinq 
(the  analysis  of  man's  habits  and  work  patterns  in  the 
attempt  to  optimize  the  man-machine  interface)  consider- 
ations are  identified  as  the  nrimarv  desian  factor.   For 
this  reason,  an  interactive  system  has  streamlined  and 
terse  communications  with  the  user  and  is  easy-to-use. 
Experienced  users  were  found  to  prefer  concise  commands  so 
brevity  and  mnemonic  value  ^  r  e  counterbalanced.   They 
recommend  that  most  for^attinq   occur  automatically.  Error 
recovery  is  identified  as  the  second  major  desion  factor 
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and  briefly  descrioed.   The  system  cannot  quit  when  a  user 
enters  an  erroneous  command  but  must  recover  qracefully. 
Valuable  information  must  bp  protected  from  loss  due  to 
user  error.   Reliability  is  identified  as  another  important 
factor.   A] so*  the  desiqn  must  be  we  1  1 -o rqan i zed  because  of 
the  size  of  the  oroaram.   A  flexible  desiqn  is  desired  to 
allow  for  enhancements  of  more  advanced  features. 

" Oevelooment  of  an    Experimental  Display  /Yord  Processor 
for  Uffice  AqdI icat ions"   [181  furnished  the  followinq 
design  information.   This  software  desiqn  was  heavily 
influenced  by  considerations  of  response*  ease-of-use  and 
extensibility.   A  key  objective  in  the  desiqn  was  to 
emulate  the  typewriter  in  order  that  the  user  could 
instantly  and  accurately  be  shown  the  status  of  the 
document  beinq  edited  or  formatted.   Minimization  of 
operator  fatique  was  considered  to  be  an  important  factor. 
Displays  were  used  to  simplify  the  user's  job  and  the  'soft 
copy'  eliminated  the  sluqaish  response  of  a  hardcoov 
terminal.   Unlike  'blind'  systems  where  the  operator  must 
keeD  a  mental  imaae  of  the  desired  fininished  output  and 
maintain  knowledqe  of  the  location  of  material  in  order  to 
edit  or    format,  this  display-based  system  performed  these 
activities  for  the  operator.   The  results  of  keyboard 
editing  and  formattinq  actions  were  instantaneously 
displayed.   The  keyboard  and  the  soft  copy  provided  by  the 
display  served  as  the  primary  interface  for  user/system 
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d  i  a  1  o  q  u  e  .   User  error  was  reduced  by  differentiating 
between  text  and  command  inout.   Althouah  the  command 
reDertoire  was  extensive,  users  were  found  to  relv  upon 
only  a  few  basic  commands. 

In  addition  to  the  factors  mentioned  in  the  previous 
paraqraoh,  "Overview  of  the  Functional  Features  ana 
Software  Desian  for  a  Display  word  Processor"   Ua] 
discussed  further  efforts  made  to  aid  the  user.   Informa- 
tion on  the  CPI  requiring  ooerator  interaction  was 
disolayed  using  menus.   A  message  area/  "status  and  alarm 
areaM»  was  usea  to  display  messages  to  the  user  which 
indicated  the  current  command*  system  status  and  error 
conditions.   The  HELP  diSDlay  provided  information 
pertaininq  to  the  user's  current  state,  e.q.  current  valid 
commands  . 

"Text  Handl inn  in  an  Automated  Office"   1171  exoressed 
the  design  views  found  in  the  following  paragraohs.   The 
design  aims  in  this  project  were  to  acnieve  a  good  human 
interface  and  an  efficient  implementation.   A  good  human 
interface  meant  that  the  system  was  easy-to-use  ana 
easy-to-learn  and  could  be  basically  described  as  'frienaly 
and  forniving'.   An  efficient  implementation  meant  that  the 
provided  services  were  aaaptable  Ceasily  modified  or 
expanded),  many  concurrent  users  could  be  supoorted  and 
machine  resources  were  utilized  efficiently.   Emphasis  was 
placed  upon  streamlining  the  human  interface,  makina 
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services  adaptable  to  chanqina  requirements  and  utilizing 
comouter  resources  efficiently. 

Features  that  enhanced  the  human  interface  were  a 
unified  command  structure*  a  message  area  and  a  uniform 
mechanism  to  store  and  display  text.   A  good  human 
interface  was  achieved  when  actions  common  to  different 
services  were  initiated  by  the  same  commands.   Full-word 
wraoaround  and  rudimentary  text  formatting*  such  as  default 
margin  settinqs*  double  spacing,  etc.*  to  make  the  text 
more  readaole*  were  Drovided  during  text  insertion  to 
improve  the  human  interface.   Full-word  wraoaround 
automatically  forces  a  word  which  would  extend  into  the 
right  maroin  to  be  moved  to  the  next  line  down.   The 
message  ares    was  set  aside  for  command  entrv*  i.e.  to 
disolay  and  edit  commands  durinq  their  composition;  error 
messaaes*  machine  status;  etc.   It  was  orotected*  i.e.  no 
user  services  could  be  invoked  in  it.   The  cursor  served  as 
the  oointer  to  the  text  being  edited.   Commands  for  moving 
the  cursor  and  oositionina  the  text  window*  i.e.  the  block 
of  text  currently  disolayed  in  the  screen*  were  uniform 
across  all  services. 

Efficient  utilization  of  computer  resources  was 
obtained  by  storing  as  little  information  about  the  screen 
as  possible*  avoiding  duplication  of  code  and  minimizinq 
the  communication  Between  screen  and  the  computer.   This 
system  avoided  duplication  of  executable  code  by  unifying 
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the  various  constructs,  operations  and  data  structures 
common  to  a  number  of    services  and  i mo  1 emen t ed  them  as  a 
common  ooo)  of  subroutines.   In  addition,  each  service  had 
its  own  special  purnose  routines.   This  design  strateay 
made  code  more  compact,  but  also--even  more  importantly*" 
made  the  the  system  more  adaptable.   Existing  services 
could  be  modified  by  adding  new  soecial  puroose  routines  or 
by  enhancino  the  common  routines.   The  same  commands  in 
each  service  performed  a  common  action  making  the  user's 
job  much  easier. 

Based  on  these  observations,  the  fol lowinq  desian  goals 
for  the  SCOPE  system  were  set  to  achieve  a  friendly, 
forgivinq  and  easy-to-use  system: 

1.  to  utilize  the  disolav  or  screen  as  the 
editing  and  formattina  vehicle, 

2.  to  provide  extensive  error-checking  and 
graceful  error  recovery, 

3.  to  develoo  a    uniform  command  structure  of 
brief  mnemonic  commands, 

4.  to  incorporate  a  disolav  message  area     for 
svstem-user  communications, 

5.  to  assist  the  user  through  the  presentation  of 
menus  and  a  current  command  status  display, 

o.   to  develoo  a  reliable  program, 
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7.  to  facilitate  prooram  adaDtability  and 
m  a  i  n  t  a  i  n  a  b  i  1  i  t  y  , 

8.  to  utilize  computer  resources  efficiently* 
and  in  add  i  t i  on , 

9 .  to  orovide  Hardware  independence  in  the  use  of 
printers  and  terminals/  i.e.  to  specifically 
eliminate  the  requirement  for  specialized 
hardware. 

The  overall  SCOPE  design  is  si  mole  and  straightforward 
Program  reliability  and  maintainability  were  much  more 
important  than  the  considerations  of  speed  and  storage. 
This  does  not  mean,     however,  that  processor  and  storage 
resources  were  inefficiently  utilized.   Tradeoff  decisions 
durina  the  desian  process  were  made  in  line  with  the 
following  list  of  priorities*  in  order  of  importance; 
ease-o f -use  *  Droqram  reliability*  proaram  maintainability 
and  finally  efficient  utilization  of  machine  resources. 

C.   THE  DESIGN  PROCESS 

The  design  process  proceeded  in  phases.   It  was 
iterative  and  incremental  in  nature.   The  initial  phase 
dealt  with  the  consideration  of  terminal  characteristics. 
Phase  Two  defined  the  overall  system  structure  and 
capabilities.   Subsequent  phases  dealt  witn  the  definition 
of  new  features  and  sometimes  with  the  redefinition  and 
enhancement  of  existing  ones. 
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1  .   Terminal  Characteristics 

The  first  step  in  real izinq  the  desired  product  was 
the  consideration  and  selection  of  a  minimum  set  of 
terminal  characteristics  necessary  for  a 
screen-orientation.   Only  CRT-eouioped  terminals  were 
considered  for  this  reason.   Soec i f i c a  1  1 y ,  two  dumb 
terminals^  the  ADM-3A  [1]  and  the  D^-1520  181,  were  studied 
because  thev  were  used  in  the  implementation.   In  addition, 
the  D M - 2 5 0 0  19]  was  considered  to  add  a  greater  degree  of 
generalization  and  hardware  independence.   Ideally,  the 
terminal  used  would  have  an  extensive  keyboard  with  many 
special  function  keys,  e.g.  delete,  insert,  etc.,  and  a  CRT 
screen  large  enough  to  display  a  full  page  of  output  text 
at  one  time.   This  system,  however,  is  not  intended  to  run 
on  the  ideal  terminal  but  on  a  large  number  of  widely 
available  dumb  and  intelligent  terminals. 

To  achieve  the  previously  mentioned  design  ooals  of 
generality  and  hardware  independence,  the  terminal 
characteristics  chosen  for  inclusion  in  the  minimum 
reguired  set  are  present  on  most  dumb  terminals.   The 
following  terminal  characteristics  are    necessarv  for 
successful  implementation  of  this  project: 

a.   standard  ASCII  character  set  (upper  and  lower 
case,  numerals  and  punctuation  marks), 


30 


nondestructive  cursor  movement  in  four 

directions  (up,  oown,  right  and  left), 

CPT  screen  dimensions  that  allow  the  disolav 

of  12  or  more  lines  with  60  or  more  characters 

per  line/ 

communication  rate  of  at  least  1200  baud, 

hardware  scrolling  feature  (cursor  movement 

past  the  bottom  line  on  the  screen  causes  all 

all  the  above  lines  to  move  up  one  line), 

absolute  x-y  addressing, 

clear  sc  reen , 

carri age  return, 

bell  (used  to  alert  user  when  an  error  is 

encountered),  and 

control  code  Generation. 


Uoon  entrv  into  the  svstem,  the  user  will  indicat 
which  terminal  tyre  is  being  usea.   The  system  will  then 
make  the  necessary  ASCII  code  assignments  to  variables 
holding  the  codes  for  such  display  functions  as  clearing 
the  screen  or  movinq  the  cursor  non-des t rue t i ve 1 y  to  the 
right.   In  addition,  the  user  will  indicate  the  printer 
type  to  oe  used  for  the  generation  of  hardcooy  outout. 
2.   SCOPE  Features 

The  next  chase  in  the  design  process  was  spent 
defining  tne  features  or  capabilities  to  be  included  in 
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SCOPE.   The  text  orocessinq  systems  reviewed  in  section 
II. D.  were  the  sources  for  the  chosen  features.   Each  major 
feature  is  listed  and  briefly  described  in  this  section. 
For  purooses  of  clarity,  the  features  to  be  included  in  the 
SCOPE  design  are  arouoed  into  six  categories. 

a  .   F  i  1 e-Hand 1  i  nq 

SCOPE  needed  to  be  able  to  create  new  files, 
save  files  and  access  previously  saved  files.   A  hardcoDy 
printout  of  the  processed  document  should  oe  readily 
available  and  may  or  may  not  be  produced  directly  on  trie 
printer.   A  listing  file  nnay  be  created  and  sent  directly 
to  the  orinter  or  saved  in  storaqe  for  multiple  hardcopy 
production  at  the  user's  discretion.   SCOPE  generated  files 
are  incompatible  with  other  ON  IX  editors  and  formatters  due 
to  embedded  format  commands.   For  this  reason,  SCOPE  should 
allow  the  user  to  out  files  together  in  various  ways  within 
the  buffer  and  to  write  out  partial  buffer  contents  as  a 
file.   Any  SCOPE  file  may  be  added  at  any  location  within 
the  buffer  as  1 onq  as  there  is  enoudh  soace  in  the  buffer. 
In  addition,  any  seament  of  text  in  the  buffer  may  be 
copied  out  and  saved  as  another  separate  SCOPE  file.   These 
two  features  should  facilitate  the  "cut  and  paste"  aspects 
of  document  reorganization. 

b.   Screen-Orientation 

SCOPE  should  be  a  screen-oriented  or 
di so  1  ay-based  system.   The  screen  will  provide  the  user 
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with  a  'soft  copy'  of  the  finished  document.   The  visual 
display  will  serve  as  the  editinq  and  formattino  vehicle. 
The  user  should  be  made  immediately  aware  of  th*»  results  of 
any  editing  or  formatting  commands.   No  guesswork  should  be 
involved.   A  screen-orientation  should  take  advantage  of 
the  visual  nature  of  the  editino  and  formatting  process. 

Cursor  positionino  will  determine  the  text 
displayed  to  the  user  in  the  text  window  on  the  screen  and 
will  oinooint  the  location  of  most  command  actions.   A 
reasonably  fast  system  response  is  required  to  maintain  the 
correspondence  between  the  user's  commands  and  the  cursor 
movement.   A  slow  response,  tvpical  of  a  busy  timesharing 
system,  disrupts  this  correspondence  so  that  user  entries 
appear  to  be  ignored  by  the  system  thereov  confusinq  the 
user  and  causinq  him  to  introduce  errors  by  duplicating 
entries  and  receive  unwanted  results. 

Cursor  movement  should  occur  in  one  of  four 
directions  at  a  time,  right  and  down  for  forward  movement, 
and  left  and  uo  for  backward  movement  throuah  the  text. 
Movement-  of  the  cursor  should  proceed  a  character  at  a  time 
or  a  line  at  a  time.   Wraparound  from  the  end  of  a  line  to 
the  beginning  of  the  next  when  goinq  forward,  or  from  the 
beginning  of  a  line  to  the  end  of  the  orevious  one  when 
going  backward  should  be  orovided.   A  carriage  return 
should  place  the  user  at  the  first  character  of  the  next 
line  down.   Other  commands  should  be  available  to  soeed 
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movement  through  the  text  by  scrollina  through  the  text  a 
screenful  of  lines  at  a  time  or  a  oage  of  lines  at  a  time* 
where  a  oage  reflects  the  hardcopy  oaae  length.   Context 
should  be  maintained  durinq  raoid  movement  through  the  file 
bv  overlaopina  or  reDeating  a  few  lines  from  the  last 
screen  display  of  text  when  scrolling  a  screen  at  a  time. 
No  overlan  need  occur  when  Daqing  through  the  text.   In 
addition,  the  user  should  be  able  to  lump  to  the  beginning 
or  end  of  the  file  upon  command. 

c.   System- User  Communications 

SCOPE  should  be  an  interactive  text  processing 
system.   The  screen  should  be  the  primary  interface  for 
system/user  dialonue.   Beinq  interactive*  system  response 
time  will  be  a  major  determininq  factor  in  SCOPE'S  success. 

The  user  will  reauire  instantaneous  echoinq  of  his  input 
for  verification  purposes  and  should  be  able  to  make 
correc-  t ions  by  erasinq  input  characters.   System-user 
communications  are    not  minimized  in  this  desian  because 
many  SCOPE  ooerators  will  be  casual  users.   Such  users  will 
not  want  to  soend  a  lot  of  time  relearm'nq  the  system. 

A  messaqe  area    will  be  a  special  1 v  defined-area 
on  the  screen  for  the  inout  and  display  of  user  commands/ 
the  display  of  error  messages*  the  display  of  current 
command  status*  i.e.  which  commands  are    currently  available 
to  the  user*  and  the  display  of  prompts  and  menus.   This 
messaoe  area    should  be  protected  from  other  system  features 
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except  in  the  case  of  the  terminal's  hardware  scrolling. 
The  user  should  be  coached  during  a  SCOPE  session  through 
the  use  of  menus  describing  the  available  ootions  and 
prompts  describing  the  command  action  and  how  it  is 
initiated. 

There  should  be  a  uniform  command  structure  of 
short  mnemonic  commands.   The  same  command  should  cause  the 
same  action  across  the  provided  services,  e.g.  a  'g'  will 
allow  the  user  to  exit  or  guit  any  service.   A  relatively 
small  set  of  oowerful  commands  should  be  available.   Text 
input  and  command  input  should  be  differentiated  for  the 
user.   It  is  important  to  keeo  the  user  informed  of 
orocessina  actions  not  apparent  to  him,  e.g.  writing  of  a 
file,  by  signalino  thpir  successful  or  unsuccessful 
comoletion.   System  messages  to  the  user  should  be 
conversational  in  tone  and  understandable.   A  cryotic 
messaae  only  serves  to  confuse  and  alienate  the  user  and  to 
i  nt  roduc  e  error. 

d.   Error  Handling  and  Recovery 

SCOPE  should  attempt  to  prevent  user  error  as 
much  as  possible  by  providing  extensive  error-checking.  As 
mentioned  previously,  slow  response  time  will  increase  user 
input  error  as  typoaraohic  errors  become  more  freouent. 
User  command  and  text  input  should  be  carefully  screened  to 
recognize  invalid  commands  or  nontext  characters  as  soon  as 
possible.   However,  since  all  user  errors  cannot  be 
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ant i c i oa t ed ,     the  design  of  the  system  should  attempt  to 
minimize  the  imoact  of  those  that  do  occur.   Tn  general, 
error  handlinq  should  consist  of  orovidina  the  user  with  a 
descriptive  error  message*  forcino  active  user  recoqni  t ion 
of  the  error  condition  and  finally  re-promoting  to  orovide 
information  about  valid  command  options  available.   Grace* 
fulerror   recovery  should  oe  attempted  and  accomplished 
except  in  the  case  of  a  catastrophic  error  occuring  to  the 
base  system.   The  user  should  be  protected  from  the  loss  of 
text  by  requiring  positive  confirmation  of  its  deletion  or 
the  provision  of  backup  files, 
e .   Editing 

SCOPE  should  orovide  editing  features  to 
facilitate  the  composition  of  documents  and  proarams. 
These  editing  features  may  be  invoked  durinq  initial 
creation  or  after  creation  and  storage.   During  the  editing 
session,  the  user  should  be  able  to  move  the  cursor  or 
issue  scrolling  commands  for  forward  and  backward  movement 
throuqh  the  text  to  pinpoint  t  h  *  location  of  the  edit 
action.   A  standard/  default  set  of  formattina 
specifications  should  be  in  effect  unless  the  user  sets 
other  specifications.   The  followinq  list  of  specific 
features  should  be  available  through  the  SCOPE  editor. 

Insert* -should  allow  the  user  to  add  text  to 
the  buffer  before  t^e  character  at  the  cursor.   Input  text 
should  be   screened  for  invalid  entries  and  displayed  on 
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the  screen.   The  user  should  be  a  b  e  to  erase  incut 
characters.   If  the  text-  is  being  filled,  automatic 
full-word  wraDaround  should  be  provided  at  the  end  of  the 
line.   User  acceptance  or  rejection  should  determine 
w  h  e  f  h  e  r  the  added  text  remains  in  the  buffer.   The  user 
should  be  orotected  from  buffer  overflow. 

De 1 e t e--shou 1 d  allow  the  user  to  remove 
text  from  the  buffer.   A  character  or  an  entire  line  mav  be 
deleted  at  a  Mme.   Cursor  movement  should  indicate  where 
the  deletion  occurs.   Uo  or  down  movement  should  delete  a 
line,  while  right  or  left  movement  deletes  a  character. 
The  direction  of  deletion,  forward  or  backward,  should  be 
consistent  during  the  deletion  process.   Contradictory 
cursor  movement  should  cause  the  last  deleted  line  or 
character  to  be  restored  to  the  screen  and  in  effect  negate 
the  deletion  orocess.   Actual  removal/deletion  of  the  text 
should  only  occur  within  the  buffer  uDon  positive  user 
confirmation.   Until  this  confirmation,  the  text  will  only 
"apoear"  to  oe  deleted  on  the  screen. 

Loc at e--shou 1 d  allow  the  user  to  Dinooint 
the  first  location  of  a  specified  pattern  or  string  of 
Characters  if  it  occurs  within  the  text.   This  alobal 
search  should  begin  at  the  current  cursor  position  and 
proceed  in  a  forward  direction.   Only  a  successful  search 
will  reset  the  cursor  position  to  the  beginning  of  the 
"located"  pattern.   In  the  event  of  an  unsuccessful  search, 
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the  cursor  and  the  text  window  remain  unchanged. 

Reo 1 ace--shou 1 d  allow  the  user  to  substitute 
one  strina  of  characters  for  another  reaardless  of  their 
respective  lengths  at  every  occurrence  of  the  target  within 
the  remainder  of  the  text.   This  global  substitution  should 
begin  at  the  current  cursor  position  and  proceed  in  a 
forward  direction  onlv.   The  user  should  be  protected  from 
buffer  overflow. 

E xc hanne--shou 1 d  allow  the  user  to 
substitute  one  string  of  characters  for  another  of  the  same 
lenqth  at  the  current  cursor  position.   As  the  cursor  moves 
forward  the  user  incut  character  will  overwrite  the 
existina  buffer  contents. 

Cooy--should  allow  the  user  to  duplicate 
parts  of  text  within  the  buffer.   The  user  should  be  aole 
to  delimit  the  material  to  be  duplicated  and  position  the 
cursor  at  its  new  location.   Copied  text  should  be  placed 
in  front  of  the  character  at  the  cursor.   The  user  is 
protected  from  buffer  overflow. 

Move--Should  allow  the  user  to  reposition  a 
segment  of  text  within  the  buffer.   The  user  should  be  able 
to  delimit  the  text  to  be  moved  and  position  the  cursor  at 
its  new  location.   The  delimited  text  should  be  placed  in 
front  of  the  character  at  the  cursor. 

E x t r ac t --shou 1 d  allow  the  user  to  write  out 
a  portion  of  the  text  to  another  SCOPE  file.   The  user  will 
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delimit  the  body  of  text-  to  be  cooied  to  another  file  and 
then  initiate  the  process.   The  original  text  should  remain 
unaffected  in  the  buffer. 

Add--should  allow  the  user  to  add  another 
SCOPE  file  to  the  contents  of  the  buffer.   The  cursor 
Dosition  will  indicate  the  oosition  of  the  addition.   The 
new  text  is  placed  before  the  character  at  the  cursor.   The 
user  should  be  protected  from  buffer  overflow, 
f.   Formattina 

SCOPE  should  provide  formatting  features  to 
improve  the  final  document  or  program's  apDearance  and 
thereby  increase  its  readabilitv.   The  formatting  features 
in  the  desiqn  were  principally  determined  by  the 
requirements  of  thesis  ©reparation.   During  the  formatting 
session*  the  cursor  should  mark  the  position  of  the 
format t  inq  action.   Formattinq  specifications  may  be  set 
before  text  creation  and  can  be  modified  at  any  time.   The 
formattinq  specifica-  t ions  should  be  in  effect  from  their 
initial  setting/entry  point  until  changed  or  nullified. 
Most  formatting  will  be  provided  automatically  on  the  basis 
of  a  standard/default  set  of  specifications  derived  from 
the  NPS  Thesis  Manual.   The  following  list  of  specific 
features  should  be  available  through  the  SCOPE  formatter. 

Margin  Set t i ng--shou 1  a  allow  the  user  to  set 
or  chanqe  the  left/  right*  oaraaraph*  top*  bottom  and  page 
marains  at  any  time. 
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Paqe  Lenq t h --shou 1 d  allow  the  user  to  set  or 
change  the  number  of  lines  that  can  be  written  to  the 
hardcopy  output. 

Line  Spac i nq--shou 1 d  allow  the  user  to  set 
or  chanqe  the  soace  between  lines  of  text.   Sinale,  double 
and  triple  spacinq  should  be  oroviaed. 

Skip  L Lnes--shou 1 d  allow  the  user  to  add 
extra  soacing  between  lines  by  skipping  a  soecified  number 
of  lines  or  writinq  a  soecified  number  of  blank  lines. 

Paoe  Number i ng--shou 1 d  allow  the  user  to 
number  or  not  number  the  oaqes  of  text.   The  user  should 
also  be  able  to  increment  the  paqe  number  on  a  specific 
page. 

Paoe  Fject--shou1d  allow  the  user  to  end  a 
page  at  will  and  snip  to  the  top  of  a  new  page. 

Fill--should  allow  the  user  to  put  as  many 
words  as  oossible  on  a  line  of  text  and  will  be  the  default 
mode.  Filling  should  not  aoolv  to  irregular  lines  such  as 
titles  or  running  headers  ana  footers. 

No  Fill--should  allow  the  user  to  place 
particular  words  on  a  line  and  create  irregular  lines  of 
text  . 

Cen t er--shou 1 d  allow  the  user  to  center  a 
line  of  text. 

Riaht  Justify-should  allow  the  user  to 
aliqn  a  line  of  text  alonq  the  riqht  margin. 
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Underline--should  allow  the  user  to 
underline  characters  within  the  text.   Punctuation  marks 
should  not  be  underlined. 

Adjust--should  allow  the  user  to  generate 
filled  text  aligned  along  the  right  margin.   Extra  blanks 
will  be  inserted  between  words  to  achieve  this  result. 

Indent --shou 1 d  allow  the  user  to  indent  or 
move  the  text  to  the  right  a  specified  number  of  spaces. 

Tab--should  allow  the  user  to  set  tab  stops. 

Tab  1  e-Hand  1  i  nq  — shou  1  d  allow  the  user  to 
easily  construct  tables  or  columns  of  text  using  the  tab 
key  . 

Titles--shou1d  allow  the  user  to  indicate 
five  different  types  of  titles  or  headers,  first  through 
fourth-order  and  other.  The  system  should  automatically 
format  the  first  through  fourth-order  titles  as  per  the 
thesis  manual*  while  the  other  tyoe  is  centered  on  a  new 
page.   Header  numbering  and  lettering  should  be  considered 
for  possible  inclusion. 

Running  Headers  and  Foo t e r s--shou 1 d  allow 
the  user  to  write  a  specified  message  across  tne  too  or 
bottom  of  every  page  of  the  document.   The  user  should  also 
be  able  to  specify  where  within  the  too  and  bottom  margin 
the  header  or  footer  is  located. 

Paraoraph/No  Pa ragraoh--shou 1 d  allow  the 
user  to  define  a  new  paraaraph  or  return  the  text  to 
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non-paraqraoh  status. 

Foot  not e--shou 1 d  allow  the  user  to  inout  the 
information  to  be  contained  in  the  footnote  which  will  then 
be  automatically  positioned  by   the  system  in  accordance 
with  Thesis  Manual  directions. 

D.   TESTING 

Ease  of  testing  was  an  important  desiqn  consideration. 
An  incremental  aporoach  should  be  generally  taken  in 
testinq.   In  this  method  each  module  is  designed/  coded  and 
tested  by  itself  and  then  added  to  other  tested,  workinq 
modules.   Incremental  testing  greatly  simolifies  debugging 
by  limiting  the  scoDe  of  the  errors  encountered.   It  also 
allows  the  discovery  of  logic  and  implementation  errors 
early  enough  to  prevent  their  repetition  in  other  modules 
and  thus  eliminates  the  need  for  major  redesiqns  once 
unde  rway  . 

Two  deb u going  tools  were  designed  to  aid  the  test 
process.   One  tool  was  a  procedure  which  displayed  the  text 
and  format  commands  within  the  buffer  upon  the  screen.   The 
second  was  a  program  which  orovided  a  listing  of  the  raw 
file.   Roth  of  these  tools  replace  the  format  commands  with 
special  or  text  characters  to  allow  their  d i sp 1  ay / 1  i s t i ng 
because  the  control  codes  themselves  are    unorintable  and 
could  generate  unwanted  results,  e.g.  a  form  feed. 
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E.   DESIGN  APPRAISAL 

Why  is  the  SCOPE  design  "better"  than  other  existing 
systems?   A  brief  comparison  of  SCOPE  and  the  reviewed 
systems  highlights  the  critical  differences.   SCOPE'S 
integrated  editor  and  formatter  concept  is  superior  to 
separate  editor  and  formatter  packaaes,  like  TED  and  PRO  or 
Ed  and  NROFF,  because  the  user  performs  both  editing  and 
formattino  while  executinci  a  single  system.   Because  of  its 
interactive  nature,  SCOPE  is  easier  and  faster  to  use  than 
NROFF  or  PRO.   A  user  can,  with  SCOPE,  chanqe  a  format 
specification  and  immediately  see  the  results  rather  than 
having  to  visualize  them.   It  is  no  longer  necessary  to 
produce  a  listing  or  a  display  in  a  separate  process  for 
verification  purposes. 

SCOPE  provides  more  extensive  formatting  features  than 
are  availaole  in  NED,  Vi,  or  the  UCSD  PASCAL  editor,  and 
supports  these  features  with  on-line  user  aids.   Tne  user 
assistance  provided  bv  SCOPE  is  more  comprehensive  than 
that  of  any  of  the  reviewed  systems.   The  conversational 
prompts  and  error  messaaes  coach  the  user  throuah  the  text 
creation  process.   The  learning  curve  for  effective  system 
utilization  is  significantly  reduced  for  the  casual  users, 
who  should  be  able  to  operate  SCOPE  with  a  minimum  of 
external  documentation. 

SCOPE'S  limited  and  simole,  yet  powerful,  command 
structure  is  desianed  to  re  less  confusing  to  the  user  than 
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many  of  the  others  have  proven  to  be.   The  mnemonic 
commands  are  intended  to  be  easier  to  understand*  remember 
and  tn  use  than  those  of  earlier  systems. 

Finally*  unlike  NED  and  wPS-8,  SCOPE  does  not  require  a 
SDecial  terminal  with  specialized  function  keys  and/or  an 
enlarged  CRT  screen  out  can  be  used  on  a  wide  range  of  dumb 
and  intellignt  terminals. 

In  conclusion,  the  SCOPE  desian  is  a  "better"  design 
because  it  attempts  to  incorporate  tne  most  attractive 
features  of  the  reviewed  systems  while  avoiding  the 
limiting  asoects  of  earlier  systems. 
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IV.   IMPLEMENTATION 

THis  section  provides  aeneral  information  about  the 
SCOPE  svstem.   Program  details  may  be  obtained  from  the 
proaram  listing  (  A  D  o  e  n  d  i  x  B)  provided.   The  listing  also 
provides  system  documentation.   An  inital  introduction  to 
the  system  is  provided  along  with  comoilation  and  execution 
instructions.  A  list  of  aboreviations  used  throughout  the 
prooram  is  included.   Each  f unc t i on /procedu re  is  briefly 
described  in  the  program.   Mnemonic  names,  modularity^ 
straightforward  logic  and  code  as  well  as  appropriate 
comments  facilitate  program  understanding.   Each 
function/orocegur-  is  short  enough  to  appear  on  one  page. 
Indentation  and  the  PASCAL  keywords  aid  in  the  tracking  of 
program  flow.   Finally,  most  variables  within  the  SCOPE 
program  are  glohal  in  nature. 

The  SCOPE  implementation  presented  here  is  character- 
ized by  its  isolation  of  i mo  1 emen t a t i on  details  and  its 
modularity.   The  isolation  of  as  much  as  possible  of  the 
actual  implementation  from  the  program  as  a  whole  is 
recommended  by  PlauTher  and  Kerniohan  [151.   This 
recommended  technique  facilitates  the  optimization  orocess 
or  the  selection  of  a  new  strategy  because  the  desired 
result  can  be  obtained  by  simply  altering  low  level  buffer 
management  routines.   The  second  attribute  of  this 
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implementation,  its  modularity/  is  recommended  by  Sharma  in 
(171.   Modularity  T^kes  the  provided  services  more  adapt- 
able to  changina  reauirements.   There  is  a  common  pool  of 
general -ouroose  subroutines  that  are    called  by  many  of  the 
services  as  well  as  soec i a  1 -du roose  routines. 

Ourinq  the  implementation  process  the  UNIX  system 
provided  two  handicaps.   The  first  difficulty  was  the  slow 
response  time.   UNIX  suffers  measurable  degradation 
whenever  qraphics-related  oroarams  are    executed  and /or 
multiple  us^rs  are  on  the  svstem.   The  second  difficulty 
had  to  do  with  the  soecial  terminal  conditions  under  which 
SCOPE  ooerates,  which  are  explained  in  section  0.   These 
conditions  were  a  nuisance  when  tryinq  to  execute  commands 
and  proqrams  outside  of  SCOPE.   The  freauent  and  necessary 
Chanqes  of  the  terminal  conditions  were  not  only 
inconvenient  hut  tended  to  increase  user  error. 

A.   PROGRAMMING  LANGUAGE  SELECTION 

An  imoortant  consideration  in  the  system  i mo  1 ement at i on 
effort  was  the  selection  of  a  suitable  proqrammina 
lanquaqe.   A  hiqh  lf»vel  lanquaqe  was  souqht.   Desirable 
features  included  structured  constructs?  flexible  and 
extensive  data  structures,  and  extensive  error-checking  and 
diaqnostic  facilities.   In  addition,  the  1 anquaae  had  to  be 
able  to  distinguish  between  every  character  input  at  the 
keyboard--espec i a  1  1 v  control  codes  which  serve  as  commands. 
Secondary  selection  criteria  were  availability 
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(unfortunately  the  new  PL/I  compiler  by  Digital  Research 
was  not  available)  and  t ransoo r t ab i 1 i t y .   PASCAL  met  all  of 
the  above  mentioned  criteria  and  was  chosen.   Soec i f i c a  1  1 v * 
the  Berkeley  Version  1.1   [101  PASCAL  implementation  was 
selected  because  of  its  attractive  run-time  ootions.   A 
PDP-11/50  minicomputer  under  the  UNIX  timesharing  system 
[231  served  as  the  host  comouter. 

B.   PROGRAM  LHGTC  AND  STRUCTURE 

Software  enqineerinq  orincioles  [121  were  applied  in 
develoDina  the  Droqram  structure.   The  too-down  design 
approach  was  followed.   M^jor  functions  to  be  performed 
were  analyzed  and  decomposed  into  smaller,  more  easily 
manaqed  sub f unc t i ons  .   Functional  modules  were  designed  to 
be  subproorams,  i.e.  functions  or  procedures/  and  were 
limited  to  one  oaae.   Durinq  the  analysis  and  decomposition 
phase,  SOFTWARE  TOOLS  [151  and  Triyono's  thesis  [211 
provided  invaluable  assistance. 

Codina  and  debuqqinq  were  simplified  and  overall 
prooram  clarity  improved  by  always  selectinq  the  simplest 
and  most  s t ra i qh t f o rwa rd  technique  to  accomplish  any 
"tricky"  or  complex  actions.   In  addition,  a  single 
prompting  procedure  and  a  separate  error  messaqe  procedure 
were  set  up  to  centralize  system  communication  with  the 
user.   Finally,  tradeoff  decisions  were  made  whereoy 
proaram  simplicity,  reliability  and  maintainability  were 
considered  more  important  than  speed,  storaae  or  overall 
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ef  f  i  c  i  encv . 

C.   DATA  STRUCTURES 

The  Berkeley  version  of  PASCAL  does  not  provide  strinq 
man i oul at i ons  and  it  does  not  allow  the  readinq  of  strings 
from  text  files.   In  addition,  it  allows  only  scalars-- 
inteoer,  characters,  or  boolean  values  —  to  be  oassed  as 
suboroqram  arauments.   Finally*  set  implementation  is  such 
that  sets  may  not  b*»  declared  as  constants,  nor  do  sets 
defined  to  contain  character  variables  assiqneo  using  the 
standard  function  CHP  behave  correctly.   Despite  these 
shortcomings,  data  structure  selection  was  not  a  difficult 
phase.   In  order  to  facilitate  chanaes  the  actual  data 
structure  is  hidoen  from  hioher  level  modules  by  a  low 
level  buffer  manaoement  function  desianed  only  to 
manioulate  the  data  structure. 

Within  this  system  there  are    two  orincioal  data 
structures.   The  first  is  the  "raw"  text  file  as  it  exists 
in  storage  whpn  not  beinq  acted  on.   It  is  a  sequence  of 
character  data.   It  consists  of  the  text  characters  and 
format  command/characters.   Inteoers,  reals,  booleans, 
strinqs  and  unstructured  data  types  may  not  be  included  in 
this  file.   This  file  contains  a   beqinninq  and  end  of  text 
character  or  marker.   within  the  text,  the  lines  and  the 
oaraoraphs  are  set  off  by  a  line  or  paraqraph  marker 
respectively.   Althouoh  this  line  orientation  is  not 
stricMy  necessary  it  does  simplify  many  operations, 


'18 


oarricularly  the  ^aooinq  from  screen  to  buffer  e  x  o  1  a  i  n  e  d  in 
Section  IV. f^.   The  additional  system  overhead  in 
maintaining  these  lino  markers  is  a  small  price  to  oav  for 
the  simolifi cation.   A  oaraoraoh  marker,  once  set  by  the 
user  does  not  change  its  relative  position  in  the  text 
unless  th«»  user  r^So  t  s  /de  1  e  t  es  it.   A  line  marker,  on  the 
other  hand,  may  be  frequently  shifted  if  as  many  words  as 
possible  arp  beina  nlaced  in  a  line,  i.e.  filled  text,  or 
text  is  inserted  or  deleted  before  thf»  line  marker.   Line 
and  oaragranh  markers  occur  at  the  beoinnina  of  a  line  or  a 
parag r aoh  . 

The  format  commands,  other  than  markers,  embedded 
within  the  text  indicate  SDecial  orocessing  that  is  to 
occur  to  the  raw  text  before  display  or  production  of  a 
listing  can  occur.   A  format  command's  range  of  effect  can 
vary  from  only  one  character  to  the  entire  file.   If  the 
text  file  is  created  usino  a  non-standard  format,  the 
characters  in  the  file  immediately  followina  the  beoinnina 
of  text  marker  ar«  a  r  o  u  d  e  d  toaether  and  called  a  "format 
record".   This  record  only  contains  those  user  format 
specifications  that  differ  from  the  standard  menu  provided. 
It  should  be  noted  that  the  raw  file  is  useless  unless  the 
embedded  format  commands  are    masked  out  and  processed.   The 
standard  PASCAL  (111  procedures  READ  and  WRTTE  and  function 
EOF  ( end-o f - f i 1 e )  are    used  to  manipulate  da*a  within  the 
text  file. 
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Soace  usaoe  was  carefully  considered.   The  line  and 
paragraph  markers  and  format  commands  could  add  a 
significant  amount  of  overhead  to  the  svstem  by  taking  up 
unnecessary  soace  that  could  be  used  for  text.   This  is  not 
the  case,  however,  because  most  markers  and  format 
commands*  however,  overlay  what  would  be  a  blank  between 
words.   Extra  blanks  associated  with  indentation, 
tabulation  and  the  end    of  a  line  can  be  eliminated  or 
compressed.   Within  a  1  ine  two  soac^s  followinq  the 
Punctuation  marks,  '.',  ':',  '1',  and  '?'  will  not  be 
compressed  because  the  maDoina  is  simplified.   Two 
procedures  PWDCFSSBUF  and  PPOCESSPAW  eliminate  and  compress 
extra  blanks  as  well  as  insure  that  punctuation  requiring 
two  spaces  is  followed  by  two  spaces  where  appropriate. 

The  most  important  data  structure  within  the  SCOPE 
system  is  the  text  buffer.   Figure  4-1  is  a  diaaram  of  the 
SCOPE  buffer.   Text  and  format  commands,  such  as  pm,  reside 
in  this  data  structure  while  underqoing  user  operations. 
This  buffer  is  a  larqe  array  of  characters  of  approximately 
30,000  bytes.   There  are    several  inteaer  pointers  indexing 
this  arrav.   fitlFINDX  is  the  current  location  of  operation 
within  the  buffer.   INSBEG  and  TNSEND  are    pointers  which 
delimit  the  INSFRT  AREA  within  the  buffer.   BUFLIMIT  is  the 
last  position  in  the  array.   CH  is  always  the  current 
character  at  BUFINDX. 
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Mov*»m»nt  throuqh  the  buffer  is  accomplished  via  the 
GFTRUFCHAP  (Direction)  function,  exceot  in  the  INSERT  mode, 
where  Direction  is  ft  for  forward  movement,  0  for  no 
movement,  and  -1  for  backward  movement.   The  text  character 
immediately  Drecedinq  the  I  N  S  R  E  G  location  aoDears  on  the 
CRT  screen  at  the  cursor.   ^  o  v  1  n  q  forward,  i.e.  riqht,  down 
or  scrollinq  down,  throuqh  the  text  is  oerformed  in  the 
f ol lowinq  manner : 

GFTRUFCHAP( + 1 )  which  means  that 

B'JFTNDX  :=  RUFINDX  +  1  ,* 

INSBEG  :=  INSREG  ♦  1 ; 

INSFND  :=  INSFND  +  l; 

BUFFER  [RUFIMDX]   :=  BUFFER T I NSENO] ; 

CH  :=  BUF>ER  [RUFIMDX)  . 

Movino  backward,  i.e.  left,  uo  or  scroPinq  ud,  throuqh 
the  text  buffer  is  oerformed  in  this  manner: 

GFTRUFCHAR ( -1 )  which  means  that 
BUFFER  [INSEND1  :  =  BUFFER TBUF INDX]  ; 
INSFND  :  =  IMSEND  -  l; 
BUFTNDX  :  =  BUFINDX  -  l; 
INSREG  :  =  INS8FG  -  l; 
CH  :  =  RUFFFR  [BUFINDX)  . 
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GFTBUFCHAP  ( 0  )  allows  the  system  to  re-re  fe  r*=>nce  the 
current  buffer  location.   All  of  the  buffer  pointers  remain 
unchanged.   GFTRUFCHAP  cannot  be  used  in  the  INSERT  MODE 
for  reasons  explained  in  Section  I V .  H . 

R  F  A  D  P  A  rt  handles  the  buffer  initialization  for  both  new 
and  existino  files.   A  file  must  he  rea<i    in  and  initialized 
before  EDIT  or  FORMAT  processing.   Buffer  initialization 
durino  the  creation  of  a    new  file  involves  enterinq  the 
beginning  and  end  o*  text  markers*  entering  an  initial 
paragraph  marker  and  setting  the  IhSBFG,  INSEND  and  BUFTNDX 
pointers.   Remember  that  the  current  INSBFG  and  I N SEND  are 
empty.   Initialization  for  an  existina  file  is  somewhat 
more  complicated.   First,  the  raw  text  file  is  read  into 
the  buffer  character    hy  character  where  the  first  character 
goes  into  the  first  buffer  position,  the  second  in  the 
second  oosition,  and  so  on.   A f ► e r  the  file  is  read,  the 
text  must  oe  shifted  so  that  the  INSERT  AREA  is  correctly 
positioned.   The  last  character  read  in  is  moved  to  the 
second  to  the  last  buffer  position,  the  preceding  one  to 
the  third  to  the  last  position,  and  so  on  until  the 
beginning  of  text  (hot)  character  is  reached.   It  is  not 
moved.   The  pointers,  INSPEG,  INSEND  and  RUFINDX  are    set 
and  in  this  manner  the  INSERT  A  P  E  A  is  defined.   This  INSERT 
AREA  is  the  key  component  within  the  buffer.   Text 
insertion,  deletion,  cooyina  and  movement  is  accomplished 
by  resettino.  TNSBFG  and  INSEND.   More  details  of  these 
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ODerations  may  he  found  in  the  nroqram  listinq.   Format 
commanos  and  line  and  paraqraoh  markers  within  the  buffer 
are  totally  transparent  to  the  user  who  only  sees  them 
reflected  on  the  screen. 

Several  other  arrays  are    used  within  this  system.  The 
runninq  header  and  footer  lines  are    each  stored  in  an  80 
byte  array  of  characters.   Tw<->  other  arravs,  of  20  inteqers 
each,  are    used  in  the  TABULATION  and  ADJUSTLN  routines. 
The  column  number(s)  of  the  tab  location(s)  is(are)  stored 
in  TABLOCMS.   Similarly,  thp  relative  location  of  blanks 
within  a  buffer  lino  of  t  »  x  t  are    saved  in  BLKLOCNS.   These 
stored  values  indicate  the    sites  for  the  insertion  of  extra 
blanks  within  the  t^xt  line  to  achieve  riaht  justification 
with  fillinq. 

D.   INPUT/OUTPUT  HANDLING 

The  use  of  a  hioh  lev^l  1  anquaae  such  as  PASCAL 
eliminates  the  ^essv  details  of  input /outout  (I/O) 
handlina.   T/0  to  and  from  the  screen  is  accomplished 
usinq  the  standard  PASCAL  READ  and  WRITE  orocedures  on  the 
text-files  INPUT  keyboard)  and  OUTPUT  (CRT  screen). 

Correct  SCOPE  ooeration  requires  the  sett ina  of  certain 
I/O  ootions  on  the  current     terminal.   The  UNIX  command 
"  s  1 1  y  raw  -echo  nl"  sots  the  necessary  options.   PAW  means 
that  no  erase»  kill,  interrupt  are    EOT  characters  are     in 
effect  and  that  the  parity  bit  is  passed  back.   NL  tells 
the  system  not  to  automatically  qenerate  a  carr^aae    return 
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and  line  *  e  »  o  for  a  new  line  and  that  only  a  line  feed  will 
end  a  line.   It  also  prevents  the  use  of  the  READLN  and 
WRITELN  procedures.  -FCHO  prevents  the  system  from  echoino 
back  inDut  characters  to  the  CRT  screen. 

SCOPF  filters  the  inout  characters  and  selectively 
echoes  bac<  or  writes  tc  the  CRT  screen,  prevent inq  the 
disolay  o^    unprintable  control  characters.   A  typical  case 
is  the  handling  of  cursor  movement  in  which  the  user 
generates  right,  le^t,  upward  or  downward  movement  of  the 
cursor.   INCHAR  is  the  character  read  in  from  the  user. 

In  addition  to  READ  and  WRITE,  the  RESET  and  REWRITE 
procedures  ar*»  used  in  I/O  to  and  from  other  files.   INFILE 
and  OUTFILE  are    tex*  files  assianed  specific  names  by  the 
user,  e.g.  CHAPl.o  and  LISTING. p.   The  '.p'  indicates  a 
PASCAL  file.   RFSFT  is  used  to  ooen  existinn  files  for 
reading,  while  R  E  W  R  T  T  F  is  used  to  ooen  and  create  a  new 
file.   IN FILE  is  used  in  the  reading  of  raw  text  files  and 
OUTFILE  in  the  saving  of  raw  Hies  and  the  production  of 
listings.   READLN  and  W  R  I  T  E  L  N  cannot  be  used  on  either  of 
these  files  because  the  UNIX  eoln  (*»nd-of-line)  character 
does  not  exist  in  SCOPE  generated  files.   UNIX  writes 
OUTFILE  in  blocks  of  512  bytes.   The  Berkeley  PASCAL 
function  FLUSH  is  reauired  to  dump  the  last  incomplete 
block  of  output  to  the  waiting  file. 
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The  lack  of  st  rina  Tianinulations  causes  all  I/O  to  be 
done  a  character  at  a  time  which  is  somewhat  tedious. 
DISPLAY L. N  oerforms  the  necessary  Drocessinq  to  display  a 
line  of  text  on  the  CRT  screen.   LISTLN  produces  a  line  of 
text  for  a  hardcooy  listinq.   both  of  these  orocedures  call 
routines  which  orocess  any  embedded  format  commands  and 
only  Dortray  the  "processed "  text  as  oDoosed  to  the  "raw" 
text  in  the  buffer.   LUSERINPUT  and  SUSERINPUT,  for  1 onq 
and  short  user  innut  from  the  terminal,  perform  the  READ 
function.   They  allow  the  user  to  enter  a  strina  of 
characters  with  the  ootion  of  erasinq  any  mistakes  by 
tvpino.  a  "control  e"  before  hittinq  the  c  a  r  r  i  a  a  *»  return. 
LUSERINPUT  allows  un  to  14  characters  to  be  input  and  is 
used  in  the  naminq  of  f i 1 p s .   It  automatically  checks  each 
entry  for  a  '.p'  in  the  name  and  apoends  it  where 
necessary.   SUSERINPUT  allows  up  to  4  characters  to  be 
entered  at  one  time.   Two  Drocedures  are    used  because 
strinos  must  be  padded  with  extra  blanks  to  their  full 
declared  1 e  n  a  t  h .   The  slow  resoonse  time*  due  to  UNIX 
dearadaMon,  was  a  oroble^.   Not  only  is  it  di  sconcer  t  i  nq 
to  be  tvoina  several  words  ahead  of  what  is  beinq  disolayed 
on  the  screen,  but  immediate  error  correction  becomes 
difficult.   It  is  no  lonqer  a  matter  of  simoly  erasinq  one 
or  two  characters  that  are  incorrect.   Instead/  the  user 
miaht  have  to  erase  and  lose  several  words  to  qet  back  to 
the  error.   In  addition,  during  the  erase  action  when  the 
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cursor  is  movina  backwards  a  delay  can  cause  the  user  to 
inadvertently  erase  more  than  intended. 

Because  only  character  data  is  read  and  written  by  the 
SCOPE  svste^  there  is  no  way  of  directly  enterinq  integer 
values  for  such  items  as  oaae  numbers  or  margin  settings. 
To  overcome  this  deficiency,  CONVRTNU^  transforms  a 
character  number  into  its  equivalent  inteqer  value.   Up  to 
a  three  digit  number  may  be  converted.   It  currently 
handles  only  positive  values. 

E.   THE  SCOPE  SYSTEM 

I  mo  1 emen t a t i on  Droceeded  in  an  incremental  fashion. 
The  initial  phase  implemented  a  minimum  set  of  system 
features.   The  minimum  set  of  features  allowed  the 
production  of  a  simple  p  a  p  e  r  but  not  of  this  thesis.   This 
skeletal  systpm  was  a  barebonps  approach  with  manv  options 
eliminated,  e.g.  the  basic  formatting  specifications 
sett  inq  up  the  oaoe  layout  (marqins,  lines  per  pane  and 
lino  spacina)  were  defined  as  constants.   Ourina  the 
analysis  of  svstem  features,  the  basic  system  design 
evolved  into  four  nested  levels  or  modes.   At  the  highest 
or  outermost  level,  i.e.  qlobal  mode,  the  system  reads  or 
writes  files,  edits,  formats  or  leaves  the  SCOPE  system 
based  on  the  input  user  commands.   The  alobal  mode  (SCOPE 
DRIVER/MAINLINE)  is  the  driver  of  the  entire  system. 
Fiaure  4-2  is  a  oseudo  code  representation  of  the  SCOPE 
DRIVER. 
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The  second  level  consists  of  the  followinq  essential 
system  features: 

a.  read  in  an  existina.  file  or    create  a  new  filer 

b.  write  the  raw  file  ouf  to  storaae* 

c.  edi^  the  text  file/ 

d.  format  the  text  file  in  a  reasonable  manner* 

e.  oreoare  a  hardcoDy  listina  of  the  file/  and 

f.  exit  from  the  system. 

Each  of  the  above  features,  except  system  exit/  is  a 
major  module  within  SCOPE.   Within  this  level  lies  the 
third  level  of  modules  or  subfunctions/  e.g.  IN SEPT  and 
DELETE  for  EDIT.   At  the  innermost  and  lowest  level  are  the 
functions  to  manipulate  the  data  structures  and  other 
suooort  routines/  e.a.  cursor  movement  and  maopino.   Cursor 
movement  and  ^aooino  ar^    kev  modules  which  are  discussed  in 
Section  I V . G .   The  movement  of  the  cursor  on  tne  CRT  screen 
must  be  correctly  reflected  in  movement  throuah  the  text 
buffer.   There  must  be  a  one-^o-one  correspondence  between 
the  character  at  the  cursor  and  this  character's  location 
within  the  text  buffer. 

Entry  to  lower  levels/  e.a.  subordinate  mndules/  is 
accomplished  by  callina  the  required  procedure  or  function. 
Return  to  a  higher  level  is  usually  accomplished  via  a 
"auit"  or  "control  a"  command. 
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F.   COMMAND  STRUCTURE 

It-  is  i^oortent  at  this  point  to  reiterate  the  chief 
design  o  o  a  1  of  this  s  v  s  t  e  m  which  is  to  develop  a  friendly 
and  fonivinq  tool.   Users  will  probably  not  be  using  this 
system  on  a  daily  basis  and  so  will  not  be  intimately 
familiar  with  commands.   Such  casual  users  will  not  utilize 
the  svstem  if  a  lot  of  time  must  be  soent  learnino  and 
relearning  thp  command  set.   For  this  reason/  it  was 
considered  imperative  to  have  short/  simple/ 

easy-t o-remembe r  and  easy-to-use  commands,   T^e  command  set 
is  also  consistent  throughout  the  different  SCOPE  modes  of 
one  rat  ion. 

This  is  an  interactive/  screen-oriented  system  and 
these  features  are    exploited.   Three  lines  at  the  top  of 
the  CRT  screen  a  r  o  set  aside  permanently  as  a  messaae  area 
for  the  disolay  of  o  r  o  m  d  t  s  and  error  messages  and  the  entry 
of  some  user  commands.  Entry  and  exit  from  any  of  the  three 
outer  SCOPE  levels  causes  a  prompt  to  be  nenerated  in  the 
messaae  area.   This  prompt  tells  the  user  which  commands 
are    currently  available  to  him  for  execution  and  how  to 
initiate  execution. 

Commands  are    mnemonic  and  one  character  in  length.   The 
command  is  usual  1 v  the  first  letter  of  the  action  to  be 
performed.   Some  commands/  e.a.  page  number/  reouire  entry 
of  a  numeric  araument.   Many  commands  are    dependent  uoon 
cursor  movement.   In  some  instances  the  control  key  is  used 
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in  conjunction  with  another  character  to  differentiate 
between  a  command  and  a  text  character/  e.g.  in  the  insert 
mode.   The  FOIT  and  FORMAT  commands  are    described  in  more 
detail  in  sections  TV.H.  IV. I. 

G.   CURSOR  MOVEMENT  AMD  MAPPING 

Establishina  and  mainfaininq  the  correct  relationship 
between  the  screen  display  and  buffer  was  the  most 
difficult  asDocf  of  the  SCOPE  implementation.   There  has  to 
be  a  on»-to-one  cor resoondence  between  rhe  character  shown 
on  the  screen  and  its  location  within  the  buffer.   Format 
commands  are    transoarent  t o  the  user  but  must  be  reflected 
on  the  CRT  screen,  e.o.  a  paragraph  marker  is  shown  bv 
indenting  the  line.   Cursor  mapping  is  carried  out  by  the 
MAPCURSOR  function  which  processes  the  format  command  and 
sets  uo  the  screen  display  as  necessary.   SFTCUPSOR  is 
another  maooinq  function  which  comes  into  plav  during  the 
sc  ro 1  1  i  nq  actions. 

There  are  two  methods  of  cursor  movement  available  and 
both  are    presented  in  figure  ^  -  ^ .   Movement  within  a  single 
line  is  fairly  simole  but  wraPDina  around  to  the  previous 
I ine,  or  jumoino  multiple  lines  complicates  the  picture 
gu i c k 1 y .   Cursor  movement  is  simplified  by  making  it  a 
lin^-oriented  process.   STAPTLN  and  NEwLINE  are  key 
functions  in  determining  the  correct  user  line  location. 
GETCHAR  is  used  to  produce  movement  one  character  to  the 
left  or  right.   JMPTOMARKER  allows  the  user  to  jump  to  the 
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beqinninq  or  the  end  of  the  currently  active  file.   Further 
details  about  the  cursor  mappinq  and  movement  are  available 
in  the  oroqram  listino. 
H.   EDIT 

EDIT  is  Drobablv  the  most  important  module  within  the 
SCOPE  system.   It  is  used  to  move  the  cursor  and  thus  scan 
throuqh  the  body  of  text  as  well  as  to  make  moa i f i c at i ons 
to  the  text.   The  EDIT  commands  are  listed  in  Fiqure  4  -  a  . 
The  uoo^r  case  letters  are    used  to  allow  the  same  oeqinninq 
letter  to  be  us^d/  e.a.  x  for  xchanae  and  X  for  Xtractfile. 
In  addition,  the  capitals  indicate  file  manipulations  where 
the  lower-case  commands  only  deal  with  the  buffer.  The  EDIT 
command  modules  closely  follow  the  desian,  with  the 
exception  of  SET MARKER  which  is  used  by  almost  all  of  the 
other  EDIT  features  to  delimit  the  body  of  text  to  be 
searched/  copied/  moved/  extracted,  etc.   Many  of  the  EDIT 
features  remain  to  be  imolemented. 

The  initial  i mo  1 emen t a t i on  involved  only  INSERT  and 
DFLETE.   INSERT  adds  text  directly  to  the  buffer  through 
the  INSERT  AREA.   Because  GETBUFCHAR,  the  low  l^vel  buffer 
manaqement  function  works  on  the  outside  of  the  INSERT 
AREA/  it  can  not  track  the  new  characters  entered  into  the 
INSERT  AREA.    All  inserted  and  deleted  text  must  be 
processed  by  PROCESSBUF  to  ensure  that  the  line  markers  are 
correctly  oositioned.   This  processino  occurs  in  paraqraph 
increments  because  a  oaraoraoh  is  the  smallest  text 
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seament.   Durina  the  text  insertion  process*  certain 
formattina  commands  are    entered  directly  by  the  user  into 
the  buffer.   Irreaular  lines  durinq  the  fill  mode  must  be 
ended  with  a  break  character.   Titles  may  be  labeled  at 
this  time.   In  addition,  the  fill,  no  fill,  adjust,  adjust 
off  and  the  tab  commands  ^ay  be  entered. 

Alonq  with  INSERT  and  DFLFTF,  an  XCHAMGF  function  was 
set  ud  and  used.   This  allowed  the  replacement  of  many 
strinas  of  the  same  lenqth.   Because  the  strinq  is  the  same 
lenath  durina  an  V CHANGE"  there  is  no  need  to  orocess  the 
the  modified  text  which  is  more  efficient  then  readinq  and 
processing  at  least  one  oaraqraph  to  reposition  line 
markers  if  necessary.   Several  users  have  enjoyed  the 
automatic  wraparound  feature  which  speeds  up  the  inout 
process . 

I.   FORMAT 

FORMAT  implementation  has  been  limited  to  titles, 
centering,  tabs  and  other  essential  features  for  thesis 
preparation.   The  followincj  paraqraphs  describe  the 
intended  SCPPF  FORMAT  implementation. 

The  Format  mode  can  be  entered  at  any  point  durina  the 
editinq  session  to  chanoe  the  output  specifications.   It 
also  moves  the  cursor  to  scan  the  text,  and  in  addition, 
some  commands  deoend  uoon  the  cursor  for  orooer  execution. 
The  user  moves  the  cursor  to  the  position  from  which  the 
format  command  will  beain  to  have  effect,  enters  the 
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correct  format  command  and  is  then  promoted  for  the  correct 
command  arguments.   Format  tinq  changes  are  immediately 
reflected  on  the  screen  for  user  examination. 

Figure  y-l-5  outlines  the  FORMAT  command  structure.   User 
commands  are  alphabetic  characters  but  the  format  commands 
in  fhp  buffer  are  control  codes.   All  the  format  commands 
were  assigned  control  codes  so  that  thev  could  be  easily 
distinguished  from  text  characters.   The  decimal  ASCII  code 
is  the  argument  for  the  PASCAL  CHR  function  which  is  used 
to  assign  and  identify  all  t  h  f»  format  commands  within  the 
buffer.   Th»  keyboard  control  characters  arp  used 
infreauently  by  the  user  during  the  editina  and  formatting 
process.   Certain  commands*  e.g.  break/  adjust,  adjust  off/ 
fill/  no  fill/  oaraoraoh  marker  and  tab  may  be  entered 
directly  by  the  user.   Within  the  Duffer/  the  numeric 
arquments  for  any  format  command/  immediately  follow  the 
command  and  are    themselves  followed  bv  a  break  character  so 
that  they  mav  be  easily  distinguished  from  text  numerals. 
Whenever  Dossible/  the  input  command  ("command  syntax)  is 
mnemonically  indicative  of  the  action  to  be  performed/  e.o. 
'u'  for  underline.   The  slashes  in  certain  commands 
indicate  that  the  command  is  complex/  has  multiple 
arguments  and  that  the  user  will  go  through  a  series  of 
prompts  durina  command  entry.   ^arains  are  a  good  example 
in  which  the  user  makes  three  different  entries  to  set  a 
specific  margin. 
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Menus  such  as  those  Dresented  in  Fiaures  U-6  and  U-7 , 
are    displayed  uoon  user  reauest  to  describe  the  current 
outout  specifications.   F  i  q  u  r  e  'J -6  will  be  displayed  unless 
the  user  has  made  some  format  chanqes.   Fiqure  4-7  will  be 
displayed,  if  any  of  the  default  specifications  have  been 
al tered . 

J.   WRITE  RAW  FILF 

This  module  is  the  simplest  of  the  main  modules.   It 
writes  out  every  text  character  and  format  command,  except 
a  rubout  character,  within  the  buffer  to  the  user-specified 
file.   The  rubout  character  is  used  for  the  deletion  of 
characters  or  spaces  when  it  is  inconvenient  to  manipulate 
the  INSERT  ARFA  to  do  so.   In  this  Tanner  SCOPE  files  are 
saved  for  future  use. 

K.   LIST  PROCESSED  FUES 

Hardcooy  printouts  or  listinqs  af  the  text  file  are 
required  whenever  the  screen  display  is  not  adequate,  e.g. 
proofreadina  is  often  "nore    easily  accomplished  on  paper. 
This  process  is  hardware  dependent  because  printers  have 
various  drivers,  carriaoe  control  mechanisms  and 
too-of-form  alianments.   To  provide  some  deqree  of  hardware 
independence,  SCOPE  includes  a  procedure  PRTNTEP  which 
queries  the  user  aoout  the  printer  and  makes  appropriate 
maroin  adjustments. 
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The  actual  orinHnq  process  is  carried  out-  in  two 
steDS.   In  the  first  steor  the  format  commands  within  the 
buffer  ar*»  processed  and  th»  reouisite  characters/  e.a. 
blanks  for  margins  or  carriage  returns  and  line  feeds  for 
line  and  paragraph  markers/  along  with  text  characters  are 
written  to  a  use r-soec i f i ed  outout  file.   This  output  file 
contains  only  text  characters/  i.e.  olankS/  alphabetic/ 
numeric  and  soecial  character  data/  and  carriage  returns 
and  line  feeds.   Thp  second  step  of  the  orinting  orocess 
must  be  done  outside  of  SCOPE  execution  and  is  accomplished 
using  the  Shell  command  "cat  filename. ollor"  [23].   Unless 
multinle  cooies  are    being  made/  this  method  wastes 
secondary  sforaae  and  should  be  changed  before  a  production 
status  is  achieved.   A  direct  one-steo  listing  generation 
is  more  efficient. 

L.   SCRFEM  DISPLAY  VICE  LISTING 

Although  the  design  called  for  an  exact  duplicate  of 
the  final  hardcoov  outout  on  the  screen,  that  is  not  the 
case  in  this  i mo  1 ement at i on .   There  were  several  reasons 
for  this  desion  departure.   Figure  'J - B  is  a  diagram  of  the 
CRT  Screen  Lavout.   Since  the  area    of  the  screen  available 
for  the  display  of  text  is  limited  (only  21  lines  nere)/ 
doub  1  e-soac i na  onlv  allows  the  user  to  see  a  small  seoment 
of  text  (11  lines).   Better  use  of  the  screen  occurs  when 
the  text  is  sinole-soaced  (21  lines  of  text  are    then 
displayed).   Figures  u-Q  and  4-10  illustrate  this  point. 
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The  screen  depiction  also  does  not  show  adjusted  lines  of 
tpxt.   M  a  p  d  i  n  a  the  cursor  to  the  buffer  contents  becomes 
much  more  difficult  and  requires  the  maintenance  of 
information  about  each  disDlayed  line  if  wraoaround  and 
other  features  are  continued  in  their  oresent  form.   The 
too  and  bottom  marains  which  include  the  runnina  header  and 
footer  and  Daoe  number  do  not  aooear  on  the  screen. 
Finally*  the  representation  o*  underlinina  is  difficult 
because  the  underline  character  overwrites  the  ^ext 
character  at  t-  h  e  same  position. 
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V  .   FOLLOW-ON  ,^ORK  AND  ENHANCEMENTS 

Although  the  SCOPE  system  was  used  in  the  Drciuct  ion  of 
this  thesis*  more  implementation  and  test  ina  must  be 
carried  out  befora  the  system  is  ready  for  release  to 
general  users.   The  SCOPE  Drogram  contains  untested  code 
segments,  e.g.  AOJUSTLN.   S<°v«ral  important  editing 
features  reauire  implementation.   The  COPY  feature  has  not 
been  fully  tested,   MOVE  has  not  been  implemented.   The 
COPY,  MOVE  and  XTPACTEILE  features  need  to  carefullv  check 
the  format  specifications  in  effect  at  the  original  segment 
location.   This  may  mean  going  back  to  the  beainnina  of  the 
file  and  checking  all  the  format  commands  between  the 
beginning  and  the  start  of  the  *■  e  x  t  D»ioq  acted  on.   The 
LOCATE  feature  to  do  oattern  searches  can  be  implemented 
using  the  alaorithm  in  reference  t31.   To  be  successful, 
LOCATE  must  identify  a  pattern  that  has  embedded  format 
commands.   REPLACE  will  use  LOCATE  to  find  the  patterns  to 
be  reo laced. 

Manv  of  the  EOPMAT  specifications  are  currently  fixed 
within  the  program  and  cannot  be  modified  directlv  by  the 
user.   FORMAT  command  sequences  were  designed  but  not 
implemented  for  commands  renuiring  arguments.   In  addition, 
table-handling  and  footnote  mechanisms  must  be  completed. 
The  adjusting  of  text  must  be  implemented  for  hardcopy 
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printouts.   Punninq  headers  and  footers  should  be  added. 

Uoon  completion  of  the  i mo  1 emen t at i on *  systematic 
testing  of  the  SCOPE  system  should  he  conducted.   A  user- 
oriented  SCnPF  Manual  should  be  be  develooed.   A  UNIX  Shel 1 
prooram  should  be  develooed  for  system  initialization  and 
termination.   This  oroqram  would  hanale  the  sett  inq  of  the 
terminal  s  t  t"  y  ootions  and  initiate  execution. 

Once  in  a  production  mode*  "ouqs"  uncovered  by  the 
users  will  have  to  be  corrected.   Surveys  of  SCOPE  users 
should  be  conducted  to  determine  suggestions  for  stream- 
1 inina  oromotina  and  command  sequences*  overcomina  the  most 
common  user  errors*  and  enhancing  the  system.   An 
efficiency  analysis*  usinq  orofiles*  should  be  conducted  to 
determine  the  most  suitable  areas  of  code  for  oo t i m i zat i on  . 

This  system  is  intended  for  use  in  the  preparation  of 
oroorams  as  well  as  documents*  but  so  far  no  work  has  been 
done  in  that  area.        The  format  commands*  beina  control 
codes*  will  hav«  to  be  masked  out  or  Processed  before  a 
SCOPE  file  can  be  used  as  input  to  any  comoiler. 

There  are    manv  possibilities  for  system  enhancement. 
SETMAPKER  could  be  <»xoanded  to  allow  the  user  to  set  other 
markers  within  the  file  to  oinpoint  soecial  locations.   The 
adjusting  of  text  lines  on  the  screen  and  the  associated 
mapping  to  successfully  handle  the  extra  embedded  blanks 
would  be  a  worthy  project.   Underlininq  could  be 
represented  on  the  screen  as  another  line  of  blanks  and  "  -  " 
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characters  underneath  the  required  oostion. 

The  oaqe  conceot  on  the  screen  where  the  oaae  marqins 
are  actually  shown  delimited  on  the  screen  with  the  M!" 
character  down  each  side  for  instance  and  the  top  and 
bottom  of  the  Daqe  indicated  by  dashes  (M-M)  across  the 
screen  could  he  introduced.   In  this  manner  the  screen 
becomes  a  more  exact  codv  of  the  final  output  document. 
Carry ina  this  further,  the  Dane  scroll inq  mechanism  would 
not  only  scroll  throuoh  one  hard  cony  eauivalent  of  a  oage 
but  al low  the  user  to  request  a  particular  oaae  bv  number. 

An  UNDO  command  allowina  the  user  to  easily  recover 
from  his  last  action  miaht  be  helpful.   Another  valuable 
feature  would  be  the  provision  of  a  document-  index 
containino  pertinent  information  about  the  document  such  as 
its  title*  date  of  last  update/  size,  etc.   This  index 
would  be  readily  accessible  to  the  user  from  the  command 
level.   The  introduction  of  a  mac ro-P rocess i no  capability 
would  be  another  possibility  for  enhancement.   Finally/ 
common  document  formats  could  be  stored  as  templates  to  be 
easilv  accessible  to  the  user. 

Thi<?  desian  could  be  implemented  on  other  svstems.   The 
INTFL-based  8080/Z-^O  microprocessors  are    prime  candidates 
usinq  the  new  PL/T  compiler  bv  Diqital  Research.   Another 
candidate  for  SCOPE  implementation  is  the  IBM  svstem 
scheduled  to  be  installed  at  the  irt  •  R.  Church  Computer 
Center  in  the  fall  of  1980. 
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VI.   CONCLUSIONS 

The  desiqn  criteria  for  a  "better"  text  Drocessinq 
system  were  discussed  and  a  desian  was  developed.   This 
desiqn  was  based  uoon  an  ^xaminat  i  O"  of  currently  available 
systems  and  a  review  of  the  desiqn  criteria  set  forth  o  y 
recoqnired  desioners  such  as  Kerniqhan  and  PI auqher  and 
Xerox  Dersonnel.   SCOPE'S  screen  orientation,  interactive 
nature  and  intearat  ion  of     services  are    the  kevs  to  this 
better  desiqn.   The  i mD 1 e^en t at i on  demonstrates  the 
feasibility  and  value  of  such  a  comprehens i ve  system.   It 
is  hooed  that  the  desiqn  criteria  presented  here  can  serve 
as  a  quide  in  the  development,  evaluation  ana    selection  of 
commercial  text  processinq  systems,  as  well  as  presenting  a 
basis  for  the  desiqn  of  new  text;  handling  svste^s. 
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the  abovp  huffer  contents  wouM  apoear  on  the  screen  as 


SCOPE  System. 


where   '-'   represents  the  cursor  position 


Fiaure  4-1.   SCOPE  Puffer  Layout 
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begin   /SCOPE  D» I VEP/WAINL IME} 
initialize  variables; 
terminal  J 
or  i  n  t-  e  r  ; 
set-defaul t  s  ; 
set- format-end's; 
c 1 ea  r sc  reen ; 
renea t 

oromot  ; 

userinput (end); 
if  valid  end  then 
case  cmd  of 

edit-; 
format ; 


e 

'  4    < 


1 ' :   listDrocessed; 
o ' :   s  t  oo  : =  true; 
readraw ; 
w r  i  f  e  r aw ; 
end   (case) 
else   {not  a  valid  command} 
errormsa 
until  st od ; 


end 


Figure  a-?.   SCOPE  Driver 
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Method  T 
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Move  uo  1  I  i  ne;  staying  in  samp  column 
or  the  one  closest  to  the  le*t. 
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Move  riaht  1  column,  at  end  of  line  ao 
to  first  char  of  next  line  down. 

^ove  down  1  I ine,  staying  in  same  col 
or  the  one  closest  on  the  riaht-. 


Method  II 


Move  left  1  column,  if  beqinning  of  line 
go  to  last  char  of  nrevinus  line. 


cr 

•i]  ' 


Move  to  first  char 
Sc  rol  Iud, 

of  the  sc  reen 
Scrol  1  down 

of  the 


of  next  line  down, 
move  un  aoo ro x i ma t e 1 v  3/4's 

'  th  5  lines  of  overlao 
ove  down  aooroximately  3  /  -I 
en  with  5  lines  of  overl 
Go  to  the  beoinnina  of  the  file. 
Go  tn  the  end  of  the  file. 


sc  p 


'  s 

an 


Fiaune  4-3.   Cursor  Movement 
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Command 
Syntax 


Command  Function 

Addf i 1 e 

cooy 

Cursor  Movement 

de 1 e t e 

insert 

locate 

move 

au  i  t 

reo 1  ace 

set  marker 

exchange 

eXt  rac  t  f i  1  e 


Fiaure  a-a.   SCOPE  EHIT  Commands 
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Fiqure  4-5.   SCOPE  FORMAT  Command  Structure 


7a 
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Figure  4-6.   SCOPE  FORMAT  Menu C ne f au 1 t ) 
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CUPPFNT  FORMAT  MENU 
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Figure  4-7.   SCOPE  FORMAT  Menu ( Cu r rent ) 
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Fiqure  4-8.   CRT  Screen  Layout 
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Figure  a-9.   SamDle  SCOPE  Screen  Pisolav  «1 
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EDIT  MODF    a)uit  A)ddfile  XJtractMle  Oursormove 
c)ooy  d)elet<»  i  Insert  I  locate  m)ove 
r)ep1ace  s ) et marke r  x)chanae 
Although  the  desion  called  for  an  exact  duplicate  of 

the  final  hardcooy  output  on  the  screen*  that  is  not  the 

case  in  this  implementation.   There  were  several  reasons 

for  this  desion  departure.   Figure  4-fl  is  a  diaaram  of  the 

CRT  Screen  Layout.   Since  the  area  of  the  screen  available 

for  the  disolay  of  text  is  limited  ("only  ?1  lines  here)* 

doub 1 e-soac i na  only  allows  the  user  to  see  a  small  segment 

of  text  (11  lines).   Fetter  use  of  the  screen  occurs  when 

the  text  is  s i nq 1 1 e-soaced  (21  lines  of  text  are  then 

displayed.   Figures  4-9  and  4-10  illustrate  this  ooint. 

The  screen  deoiction  also  does  not  show  adjusted  lines  of 


Figure  4-10.   Samole  SCOPE  Screen  Display  U? 


70 


APPENDIX    B 
SCOPE 

SCOPE,  SCreen-Oriented  Processor  and  Editor,  is  an 
interactive,  inteqrated,  screen-oriented,  context-  oriented 
text  orocessinq  system.   It  performs  the  functions  of  both 
a  text  editor  and  formatter.   The  following  paraqraohs 
provide  a  brief  description  of  the  intended  SCOPE  System. 

flhile  usinq  SCOPE,  the  file  that  is  edited  or  formatted 
is  disDlaved  on  the  CRT  screen  which  acts  as  a  "window"  on 
the  text.   This  file  exists  in  a  stream  format,  i.e.,  the 
file  is  a  continuous  stream  of  character  data.   In  this 
character  stream,  the  lines  of  text  are    defined  by  a  line 
marker  or  a  oaraqraoh  marker  which  oreceeds  each  line  or 
paraqraoh  resoec t i ve 1 y .   Alonq  with  the  text  and  markers 
the  stream  also  contains  format  commands  which  cannot  be 
confused  with  either  the  text  or  markers. 

The  cursor  oosition  on  th«  screen  serves  to  oinooint 
the  text  to  be  Drocessed.   Cursor  movement  occurs  in  one  of 
four  directions;  down  and  riqht  for  forward  movement  and  up 
and  left  for  backward  movement.   Movement  throuah  the  bodv 
of  text  is  accomplished  character  by  character,     line  by 
line,  a  screenful  of  lines  at  a  time,  or  by  a  paqe  of  lines 
where  a  oage  reflects  the  hardcopv  orintout  length.  RaDid 
movement  throuqh  the  text  is  oerformed  usinq  commands,  e.g. 
'D'  for  scrolldown,  which  allows  the  user  to  move  forward 


BO 


through  the  equivalent  of  3/4's  of  the  screen. 

Ourinn  the  edition  session,  text  is  inserted  in  free 
format  with  full-word  wraoaround  at  t^e  end  of  each  line. 
The  system  worries  about  each  end  of  line  thereby  freeing 
the  user  to  concentrate  only  upon  input ina  as  raoidly  as 
pnssihle.   Blocks  of  text  may  be  cooied  from  one  ol ace  to 
another  within  the  same  file  and  to  another  file.   Deleted 
material  is  not  removed  from  the  buffer  until  the  user 
positively  acknowledges  this  action  thus  oreventinq  some 
unintentional  errors.   Context  searches  are    also  available. 
Table  construction  is  facilitated  by  the  use  of  tabs.   The 
format  soec i f i c a t i ons  are     in  effect  durina  the  edit 
process . 

In  the  formattina  mode  the  user  immediately  sees  the 
processed  results  uoon  the  CRT  screen.   The  cursor  oosition 
aaain  determines  where  the  formatting  action  is  to  occur. 
Menus  are    provided  to  the  user  for  the  selection  of  desired 
formattina  specifications.   There  is  a  default  menu  that 
provides  the  user  with  a  reasonable  paqe  layout  as  defined 
Oy  the  NPS  Thesis  Manual.   Hardcooy  printouts  of  the 
document  mav  be  generated  on  various  models  of  printers. 
Centering,  riaht  justification,  i.e.  alignment  along  the 
right  maroin,  underlining,  running  headers  and  footers  and 
footnoting  will  be  orovided. 


«1 


SCOPE  Execution  Commands 


%  S t t  v  raw  -ec  ho  n 1 
%  dx  scooe 


{does  not  aooear  on  screen} 


enter  the  terminal  tvoe  as  follows: 
1   for  fldm-^a,  ?   for  dmlS20,  3   for  dm2500 


orint  listing  on  UNI*  orintei y  or  n? 

> 


COMMAND  MODE   > 
e)dit  f  )  o  rma  t  I)  i  st  ina  a)uit  r ) ead  f  i  1 e 


w  )  r  i  t  e  f  i  1  e 


SCOPE  Comoilation  Commands 


%  oi  -d  filename. o 

-2 
-0 


{to  comoile  source) 

{to  qenerate  ornfile  counters) 

{necessary  to  turn  off  stmt 


%  m  v  obi  S  c  o  p  p 


{to  correctly  name    the  object 
modu 1  we ) 


%  dxd  - } 2  filenamp.o       {orovides  formatted  oam  listing) 


X    dxd  -?  f  i 1 ename . o 


{to  qenerate  Drofile) 
limit  count  er } 
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nroqram  scooe(inout,  outout,  inf i  le/  out  H  1e) ? 


(*  abbreviations  used  in  SCOPE  in  alohabetical  o  ^  a  e  r  . 


char 


addr 

b,  bea 

b 

bl  k 

buf 

c 

ch, 

Chq 

end 

cnt#  en t 

col 

cons  t 

conv  r t 

C  r  ,  c 

0 

del 

di  r 

e 

n 

,  indx 

ni  t 

nc 

n  5 

nno 

f 

T 

n 
ocn 

m 

max 
msq 
neq 

no/  num 

o 

o i     Da  ra 

DQ 
p-n 
DOS 


U 

var 


address 

bea  inning 

bottom 

blank 

buffer 

cent  er 

charac  t er 

c  h  arne 

C  omrnand 

count ,     counter 

CO  1 umn 

Const  ant 

convert 

carri aae  return 

sc  ro 1  1  down 

del ete 

direction 

end 

i  nout 

i  nde x 

initialize,  initialization 

i  nc  r omen t 

i  nser t 

j  umo 

left 

line  feed 

line  marker 

line 

1 ocat  ion 

marker 

maximum 

messaae 

neqa t  i  ve 

numbe  r 

of 

oaragraoh 

oaae 

Daraaraoh  marker 

dos  i  t  i  ve 

r  i  ah  t 

t  od ,  text 

unde  r ,     uo 

sc  rol  1 ud 

variable 


end 


abbreviations 
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const 

overlao  = 
bu  f 1  i  m  i  t 


5;  (*no 

:  30000; 


of  Ins  to  be  recooied  during  scrolling*) 


1  iMxchar  s  = 
smaxchars  = 
m  s  a  1  n  s  =  3  ; 
1  inel  =  1  ; 
1 ine?  =  2; 
1  i  ne3  =  3 ; 
neg 1  =  - 1  J 
oosl  =  *1 ; 
zero  =  0 ; 
c  o  1  8  =  8 ; 

coil?  =  12; 

Col24  =  ?a; 


\ m  (*limit  on  user  inout  of  lono  length*) 
4;  (  *  1  i  7i  i  t  on  user  inDut  of  short  length*) 
(*no.  of  lines  in  tisq  area*) 
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emotybuf.  f i lere^d*  nan i nqf i 1 e .  stoo:  boolean; 
fill,  markersok,  alistinq:  boolean; 
beqmset ,     endmset*  newmset  :  boolean; 

ch,  cmdchar»  eotchar,  bell,  botchan,  down:  char; 
accept.  erase,  aui  t  »  om.  ]m,  If,  cr,  clear:  char; 
bm.  em,  nm.  inchar,  home/  left.  uo>  riqht:  char; 
centerlnch,  underlnch.  titlech.  nqejectch:  char; 
indentch,  headerch,  footerch,  f  i  1  1  c  h  ,  rubout:  char 
pgnumch.  filloffch.  skiolnch,  hreakch:  char; 
rtjustifych,  Uarqinch,  rmarainch,  tabch:  char; 
tmarqinch.  bmarqinch,  cnarqincH,  onmarqinch:  char; 
adjustch,  adjustoffch.  Insoacinqch:  char; 
(escape,  rubou  t- :  c  h  a  r  ;  don't-  work  in  raw  mode) 


buffer:  a  r  r  a  v  fl ..huf 1 imi  tl  of  char 
cmd:  arrav  t!  ..S"ia<charsl  of  char; 
name:  arrav     [  1  .  .  1  ma xc h a r s ]  of  char; 
footbuf:  array  11..A0]  of  char; 
headbuf:  array  U..80]  of  char; 
underlnbuf:  array  T1..P01  of  char; 


i  n  f  i  1  e  .  out  file:  text; 


cmdsetf  edcmdset.  cu  rsormovese  t  :  set  of  char; 
(cu rso rmo vese t  is  only  for  documentation  purooses 
because  this  Pascal  doesn't  allow  chr  defined 
variables  in  a  set  to  be  recoqni  ?ed  properly.) 


q  e  i  d  e  g  .  o  e  i  e  n  a  .  )/  i  .  neaiexr.  i  n  t  p  <j  e  r  , 
beqinax/  endindx.  newindx:  inteqer? 
charcnt/  centerofpq,  tab.  tabcnt:  inteqer; 


blklocns:  array     fl.,201  of  inteqer; 
tablocns:  array  fl..?01  of  inteqer; 
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function  bot:  boolean; 

(*  this  func  indicates  that  the  beainnina  of 
the  text  has  been  reached  when  it  is  true.*) 


bea  i  n 

bot  :=  ch  =  botcha 
end; 


(*  bot  *) 
(*  bot  *) 


function  boin:  boolean; 

C*this  func  indicates  that  the  char  (cM  read 
from  the  buffer  or  file  is  the  beainninq  of 
line  marker*  i.e.  1m.  *) 


beqi  n 

boin  : =  c  h  =  1 m 
end; 


f *  bol n  *) 
( *  boin  *  ) 


function  boo:  boolean; 

(♦this  func  indicates  that  the  char  (ch)  read 
from  the  buffer  or  file  is  the  beainninq  of 
oaraorsph    marker*  i.e.  dti  ,*) 


bea  1  n 

b0D  t  =  C  h 

end; 


(*  boD  *) 
( *  boo  * ) 


function  break:  boolean; 

(*this  function  indicates  that  the  char  (ch) 

read  from  the  buffer  or  file  is  the  break  char.*) 


beai  n 

break  :=  ch  =  breakch 
end; 


(  *  break  * ) 
(  *  break  * ) 


function  eot :  boolean; 

(*this  func  is  analoaous  to  the  eof  and  eoln 
funcs  and  indicates  the  end  of  the  text  has 
been  reached.*) 


beqi  n 

eot  :=  ch  =  eotchar 
end ; 


(*  eot  *) 
(*  eot  *) 
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function  fomatchar:  boolean; 

(♦this  func  is  true  when  ch  is  a  format 

command  or  oart  of  one.*) 


beqi  n 


(*  formatcHaf  *  ) 


if  (ord(cn)  >=  0  1  and  fordfch)  <=  31)  then 

formatchar  :=  true 
else  if  ch  in  ft',  '2f,  '3',  '4',  'S'l  then  beqin 

{  check  for  numeric  oart  of  format  commands  > 

ch  :=  oe t bu f c ha r ( - 1 )  : 

formatchar  :=  ch  in  Ttitlech,  1 nsoac i noc h ] ; 

ch  : =  aetbuf char  f  +  1  ) 
end; 

formatchar  :=  falsp 
end?  (*  formatchar  *) 


function  textchar:  boolean; 

(♦this  func  is  true  when  ch  is  a  valid 

disolavable  text  char  only.  Line/oara 

markers  and  format  commands  cause  a  false 
value  to  be  returned.  * ) 

heai n  f*  texfchar  *) 

textchar  :  =  fordfch)  >=  32)  and  fordfch)  <=  126) 

end;  f  *  textchar  * ) 
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function  qetbu^char(inc:  inteqer):  char; 

(*this  func  qet-s  a  cHar  from  the  buffer.   It 
is  either  the  predecessor,  same  or  successor 
to  the  last  char  returned.*) 
(*  inc  has  the  values  +1,0,-1.*) 

const 

nea 1  =  - 1 ; 
7  e  r  o  =  0  ; 

o  o  s  l  =  + 1  ; 


begin  f*  qetbufchar  *) 

case  inc  of 
neql  : 
beai  n 

buffer  (inspnd)   :  =  bu f f e r fbu f i ndx 1  } 
insend  :=  insend  -  l; 
bufindx  I-    bufindx  -  1  J 
i  nsbeq  : =  i  nsbeq  -  1 
end; 
zero : 

null;  f*  no  chanae  within 
oos  1  : 

beq  i  n 

bufindx  :=  bufindx  + 
i nsbeq  :=  insbeq  ♦  I ! 
insend  '-     insend  +  l! 
buffer  [bufindx]   :=  b  i. 
end 
end;  ( *  case  * ) 

getbufchar  :=  buffer  (bufindx) 
end;  (*  qetbufchar  *) 


the  buffer  *) 


l ; 


f  f er  [insend) 
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function  1  nlenath:  inteqer? 

(*this  tunc  counts  the  chars*  includina 

spaces  w/in  the  current  line  of  the  buffer  ana 

expects  the  buffer  position  to  be  at  1m  or  om.*) 

var 

cnt :  i  n  t  eae  r ; 


beai  n 

cnt  !=  -1 ; 
reoeat 

ch  :=  aetbufcharftl); 

cnt  :=  cnt  +  1 
until  newline  or  eot  ? 
1 n 1 engt  h  :  =  cnt; 
{return  to  beginning  of 
reoeat 

ch  :=  aet bu f cha r f - 1  )  ; 

cnt  :=  cnt  -  1 
unt  i  1  cnt  <  0 
end; 


( *  1 nl eno t  h 


i  ne> 


( *     1  nl pnqt H  * ) 
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function  new  line:  boolean; 
(*this  func  is  true  whenever  an  lm,  dui» 
or  format  c'nd  inndicatina  a  new  line  is 
encoun t  ered. * ) 


beai  n 

n  e  w  1  i  n  e 

end? 


=  ch  in  [hrpakc^  om 


(*  newline  *  ) 

1m,  t  i  t 1 ech  , 

(  *  new  line  *  ) 


oqe  j  ec  t  ch ] 


function  center:  integer; 

(♦this  func  returns  the  startino.  oositio' 

for  the  centerina  of  a  line.*) 


beqi  n 

center 
end; 


=  centero  f oq  - 


( *  cen t  e 
1 n 1 enat  h  d  i  v  2 
( *  c  en  t  e 
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procedure  terminal; 

(  *  this  procedure  sets  the  terminal  constants*  i.e. 
ascii  codes  based  on  the  user  innut  terminal  type.*) 

var 

ans :  char; 


procedure  admia; 

(*this  proc  assians  the  unique  adm-3a  terminal  codes.*) 

bea  in  f  *  adm  3a  * ) 

home  l-    c  h  r ( 30  )  ; 

clear  :=  c  h  r ( 26 ) ; 

up  :=  chr ( 1 1 ) ; 

riqht  :=  chr (  12) 
end?  ( *  adm3a  * ) 


procedure  dml520; 

(*this  proc  assiqns  the  unique  d  m  -  1  5  2  0  terminal  codes.*) 


bea  i  n 

home  :=  chr ( 19) ; 
clear  :=  chr ( 1 2) ; 

uo  :=  chr(31); 
riqht  :=  chr (2«) 

end; 


(*  dml520  *) 


(*  dml520  *) 


Drocedure  dm?5^0; 

(*  this  oroc  assiqns  the  unique  dm-2500  terminal  cooes.*) 


beqi  n 

home  »-    C  h r ( 2  )  ; 

clear  :=  chr(30); 

UP  :=  chr(?6); 

riqht  :=  chr (28) 
end ; 


C*  dm2S00  *) 


f*  dm2500  *) 


«1 


procedure  termcodes? 

(*this  proc  assians  the  ascii  terminal  codes 
that  are  common  to  all  the  terminals  used  w  / 
this  system.*) 

been  n  f*  t e rmcod^s  *  1 

lastcol  :=  80; 

lastln  : =  ? a ; 

bei 1  :=  chr (7)  ; 

cr  :=  c  h  r  (  1  3  )  ; 

If  :=  chr( 1 0)  ;  ( *  down  * ) 

down  :=  chr(32); 

(*  note  that  If/down  appears  as  '  '  on  UNIX  *) 

rubout  :=  c  h  r  (  1 27 ) ; 
{rubout  from  terminal  doesn't  work  in  raw  mode) 

(escape  :=  chrf?7);   doesn't  work  in  raw  mode) 

left  :=  chr(fl); 

accept  :=  chr(l);  (*cntrl  a  *) 

erase  :=  c h r ( 5  )  ?  (*cntrl  e  *) 

quit  : =  chr(17)  (*cntrl  a  *) 
end?  C*  termcodps  *) 


Q? 


beai  n 


terminal   * ) 


wri te(chr(?6) ,     chpfl?),  chr(30)): 

wri te(  '     enter  the  terminal  type  as  follows  :  '); 

write(chr(13),  c h r ( 1 0 ) ) ; 

wrfteCl   for  adm-3a,   2  for    dml520,   3   for  dm2500') 

write(chr(13),  c^r(lO),  '     >  M; 

repeat 

read  fans) 
until  (ans  =  •  I  '  )  or  (ans  =  ' 2 ' )  or  Cans  =  '3'); 
t  ermcodes  ; 
case  ans  of 
•  1  •  : 
bea  i  n 
adm3a J 
t  e  rmno  : =  1 

end; 
'2'  : 
bea  i  n 

dm  1520; 
termno  :=  ? 
end; 
•3'  : 
beai  n 

dm?500; 
t  e  rmno  : =  3 
end 
end  ( *  case  * ) 
end;  C  *  terminal  * ) 
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procedure  se^def aul ts; 

(  *  t  h  i  s  proc  sets  the  default  values  for 
a  standard  6  1  / 2"     x     11"  sheet  of  oaoer 
e.a.  ma rn i ns » et c . * ) 


f*  1 

1/2" 

*) 

(* 

i    l  /  a " 

*) 

(* 

i "   *) 

(*  < 

4    soac 

es     • 

i  n 

(* 

1     !  /  4  " 

*) 

c*   r 

"    *) 

ben  i  n 

fill  : =  t  rue ; 

bmarai  n  : =  9 ; 

1 marqi  n  : =  13? 

pqmargi  n  :=  bi 

omarq  in  : =  17; 

rma  ra  i  n  : =  72/ 

t  marqi  n  : =  6 ; 

maxpq Ins  : =  66 ; 

1  nsoac  inq  :  =  2  ', 

centerofoq  :=  (rmarqin  - 

tab  :=  a; 

n  :  =  1  ; 

reneat 

tablocnstn]  :=  lmarqin 
n  :=  n  +  1 

until      (n    =    21)     or     (tab     * 
end; 


(*    setrle'aul  ts    *) 


f m     lmarqin     * ) 


lmarqin)  div  2    +  lmarain 


1  ♦  tab  * 


80) 

C  *  set def aul t  s  *) 
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Drocedure  set  forma  t  ends  / 

(*this  proc  ^  s  s  i  o  n  s  the  asci  i  codes  for  the 

format  cmds  and  markers  used  w/in  this  system*) 

begin  ( *  set  format cmds  *) 

adjustch  :=  c  h  r ( I  ) ;  f  *  cntrl  a  *  1 

breakch  :=  chr(2);  (*  cntrl  b  *) 

centerlnch  :=  chp(^);  (  *  cntrl  c  * ) 

tmarqinch  :=  chr(4);  (+  cntrl  d  *) 

oqejectch  :=  c  h  r  f  5  )  ;  (  *  cntrl  e  *) 

fillch  :=  chr(6);  f*  cntrl  f  *  ) 

pgmarqinch  :=  chr(7)?   f*  cntrl  q  *) 

headerch  :=  chr(fl);  (*    cntrl  h  *) 

tabch  :=  chr(9);  (*  cntrl  i  *) 

indentch  :=  chr(ll);  (*  cntrl  k  *) 

lnspacinnch  :  =  chrfl?);  ( *  cntrl  1  *) 

lm  :=  c  h  r ( 1 3 ) J  (*line  marker  =  cr*) 

pqnumch  :=  chrfl^);   (*  cntrl  n  *) 

filloffch  :=  chrflS);  (  *  cntrl  o  *  1 

Dm  :=  c  h  p ( 1 6 ) ;  (*Dara  marker  =  cntrl  o*) 

footerch  :=  chr(17)»  (*  cntrl  q  *) 

rtjustifveh  :=  chrflP);   O  cntrl   r  * ) 

skiD1nch  :=  c  h  r  (  1  9  )  ;  (*  cntrl  s  ♦) 

titlech  :=  chrf20);  f*  cntrl  t  *) 

underlnch  :=  c h r ( 21 ) ;  f*  cntrl  u  *) 

nm  :=  chr(22);   (*new  m a r k e r =c n t r 1  v*) 

lmarainch  :=  chr(23);  (*  cntrl  w  * ) 

adjustoffch  :=  c  h  r  ( 2  a  )  ;  (*  cntrl  x  O 

botchar  :=  chr(<?5);  (*  cntrl  y  *) 

eotchar  :=  ch  r(<?b);  (*  cntrl  z  *) 

bm  :=  c h r ( 2 7 ) ;   (*beqin  marker=cntrl   [*) 

bmarqinch  :=  chr(2R);  f*  cntrl  \  *) 

em  :=  chr(29);  (*end  marker=cntrl  1*) 

rmaroinch  :=  chrf30);  (*  varies  *) 

pmarqinch  :=  c h r ( 3 1 )  (*  varies  *) 
end?  (*    set  format cmds  *) 
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orocedure  xyaddrfcol »  row:  inteaer); 

(♦this  oroc  initiates  absolute  x-v  addressinq  on 
the  crt  screen  for  adrn-3a  and  dm-1520  terminals, 
termnum  is  1  for  the  ad-n-ia  and  ?  for  the  dm-1520. 
col  is  the  actual  column  number  on  the  screen 
from  1  to  BO  where  the  disnlay  is  to  occur, 
row  is  the  actual  row  number  on  the  screen 
from  1  to  ?4  where  the  disolay  is  to  occur.*) 

begi  n  C  *  x  vaddr  * ) 

case  t  er-nno  o  f 
1 :  ( *  adm-3a  * ) 

write(chr(27),chr(61),chr(row+31),chr(col+31)); 
( *  31  is  the  offset  for  ea.  value  to  set  the 

correct  ascii  code.*) 
?:  (*  dm-1520  *) 

wr i te(chr ( 30)  ,  chrfcol  +  31),  chr(row  ♦  31)); 
3: 

beain  (*  dm-?500  *) 
(*the  offsets  vary  in  settina  the  correct  ascii  code*) 
if  col  <~    32  t  hen 
col  :=  col  t  95 
else  if  (col  >=  33)  and  (col  <=  ha)  then 

col  : =  col  t  63 
else  if  (col  >=  65)  and  (col  <=  BO)  then 

col  :=  col  ♦  31; 
wri te(chr ( 1 2) ,  chr(col),  chr(row  ♦  95)) 
end 
end  ( *  case  * ) 
end?  (*  xvaddr  *) 
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procedure  suserinoutfnochars:  inteqer); 

(*this  proc  qets  nochars  of  user  inout ,  A 
<cr>  terminates  short  user  input.*) 

begin  C*  suserinnut  *) 

i  :  =  1  ; 
repeat 

read  f i  nc  bar ) ; 

if  inchar  =  erase  then  Oeqin 
writedef  t#  '  '  ,  left); 
i  :=  i  -  1 
end  else  beqi  n 

if  inchar  <>  cr  then  b^oin 
write(inchar); 
i f  i  <=  smaxchars  then 

cmd  ( i  J  : =  i  nchar  » 
i  :=  i  ♦  1 
end 
end 
until  (inchar  s  cr)  or  (i  >  smaxchars  ♦  1); 
if  i  <=  nochars  then 

for  n  :=  i  to  smaxchars  do 
cmdtnJ   :=  '  ' 
else 

for  n  :=  nochars  ♦  1  to  smaxchars  do 
cmdtnl  :=  •  ' 
end?  f*  suserinnut  *) 
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procedure  1  use r i nout ( noc h ars :  inteoer); 

( * t h i s  proc  nets  nochars  of  user  input.  A 
<cr>  terminates  long  user  incut.*) 


beain  (*  luserinout  +) 

i  :  =  l ; 

repeat 

read ( i  nc  h a  r  )  ; 

if  (inchar  =  erase)  and  f  i  >  1)  then  begin 
writeUeft,  '  '  ,  left); 
i  :=  i  -  1 
end  else  begin 

if  inchar  <>  cr  then  beqin 
write(inchar); 

if  i  <=  lmaxchars  then  beain 
name  Ml  :=  inchar; 
i  :=  i  ♦  1 
end 
end 
end 
until  (inchar  =  cr)  or  (i  >  lmaxchars  ♦  1); 
if  nam  i  no  file  then 

f*check  for  .o  in  filename*) 

if  (namefi  -  <?1  <>  '.')  or  (nameti  -  11  <>  'o')  then  beqin 
if  i  <=  nochars  -  1  then  beqin 
name  ( i 1  : =  '  .  '  ; 
name  t  i  t  11  : =  '  o  '  ; 
i  :=  i  +  2 
end  else  beqi  n 
name  [noc  ha  r s 
name  f noc  h  a  r si 
end 
end; 
if  i  <=  nochars  then 

for  n  :=  i  to  lmaxchars  do 
name  Tnl  : =  '  ' 
else 

for  n  :=  nochars  ♦  1  to  lmaxchars  do 
name  Tnl  : =  '  ' 
end;  (*  luserinout  *) 


11   :=  • 


go 


orocedure  convrtnum(i:  inteqer?  var  num!  integer); 

f  *  t  h  i  s  croc  converts  the  char  number  in  the 

String  start  i na  at  index  i  into  an  integer  value.*) 


function  unit (charno:  char):  integer; 

(*this  tunc  returns  the  unit  integer  value 
of  the  char  number.*) 


beqi  n 

unit  I-    ord(charno) 

end  I 


( *  unit  *  ) 


ord(  '0'  ) 


(*  uni  t  *  ) 


begin  (*    convrtnum  *) 

n  :  =  0  ; 
reoea t 

n  :  =  n  +  1 
until  cTid{i  ♦  n]  =  '   '  ,* 
case  n  of 
1  : 

nun  :=  unit(cndli)); 
?: 

num     :=     unit(cmdlil)     *     10     +     unit (c^Hti     +     1])? 

3: 

num:=unit(cmd(il  )*100  +  unit(cf"dM+l]  )M0+unit(cnaM+21  ) 
end    (*    case    *) 
end;  (*    convrtnum    *) 
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procedure  h I ank 1 n ( rownum  :  inteaer); 

(  *  t  h  i  s  proc  causes  a  line  of  blanks  to  be 
printed  extendinq  from  t^e  left  screen 
boundary  to  the  75th  col  on  the  riaht  so 
that  the  bell  doesn't  ring  each  time.*) 


beqi  n 

xyaddrfl,  rownum); 

wr  i  t  e  (  ' 

writeC 

wri  te( '  '  ) 

end ; 


f  *  bl ank In  *  ) 

•  )  ; 
•); 

( *  b 1 ank 1 n  *  ) 


procedure  msoclear; 

(*this  proc  blanks  out  the  first  3  lines  of 
the  crt  screen,  i  .  *» .  the  msq  area.  *) 


beqi  n 

bl ankln( 1 inel)  ; 

bl ankln(l  ine2)  ? 

blankl n( 1 ine3) 
end; 


( *  msac 1 ea  r  * ) 


f  *  msoclear  *  ) 


procedure  pause? 

( *  t  h  i  s  dpoc  makes  the  user  aware  of  error  msas 

and  Prompts  by  requiring  his  interaction  w/  th< 

system.*) 

var 

ans :  char; 

beqi  n  (*  cause  *) 

xyaddr f co 1 ?4 ,     1 ine3)» 

wri  te( '  <space>  to  continue  '); 

repeat 

read  Cans) 

until  ans  =  '  ' 
end;  (*  pause  *) 
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orocedure    ornmot  (  oro^ot  n\jm:     inteaer); 

( *  t  h  i  s  proc  writes  out  t^e  d  r  o  t*  d  t  indicated  by 
promDtnum  in  the  msq  area    on  the  crt  screen.  * ) 

beai  n  (  *    oronnDt     *  ) 

rnsac 1  ear ; 

xyaddr (co 1 1 2 ,     lineM; 
case    pro^DtnuTi    o* 
1  : 

beai  n 

writeCEDIT    mode         q)uit     A)ddfile    X)tractfile     ') 
write(  'Oursor-nove'  )  ; 
xy addr ( co 1 1 2 ,     line?); 

write('c)ooy  d)elete  i  Insert  1)ocate  mlove1); 
xyaddr  (co  1  1  2  ,     Iine3)  J 

wr  i  t  e  (  '  r  )  eo  1  ace  s)etT3ri<er  x)cHanqe'); 
xyaddr (co 1  no »  rowno) 
end ; 
2: 

beqi  n 

wri  te( ' INSERT  ^0DE •  ) ; 
xyaddr(colflr  1 i ne2) ; 

write('ctrl  a    to  accept;  Ctrl  e  to  erase?  ')? 
write('ctrl  a  to  quit') 
end; 
3: 

beqi  n 

wri  te( 'FORMAT  MODE '  ) 
end; 
a: 

beq  i  n 

wri te( 'COMMAND  MODE    >'); 
xyaddr(colPf  line<?); 

write('e)dit     f  )  o  r  m  a  t     Misting    a)uit     ')? 
wri  te(  'r)eadf  i  le    w)ritefi1*»'); 
xyaddr(col*    +    22,     linel) 
end; 
S: 

beqi  n 

wri  te( 'DELETE  MODE' ) ; 
xyaddr(col^/  1ine2)» 

writeC'ctrl     a    to    accent;       Ctrl     q    to    quit') 
end; 
6: 

beqi  n 

wri  te( 'COPY  MODE ' J 
end; 


101 


beqi  n 

write( 'MOVF  ^ODE  '  ) 
end ; 

8: 

beqi  n 

wri  te(  'opocessinq  co^o  1  e  t  ed  .  '  )  ; 

xyaddr(col8,  line?); 

wri  te( 'delete  markers  set  in  buffer--y  or  n  ?  '  )  ; 

xyadHr  f co 1 n  »  1  i  ne3) ; 

w  r  i  t  e  (  '  >  '  ) 
end ; 
10: 

beqi  n 

wri  te( 'buffer  full  i  !  i  '  )  ; 

xyaddrf col "i  line?); 

write('cntrl  a) Jcceot   or   cntrl  a)uit   ?') 
end; 
1  1  : 

beqi  n 

wri  te( 'does  file  already  e*ist--y  or  n  ?'); 

xyaddr(col^f  line?); 

wr i  te( ' > '  ) 
end; 
1?: 

beqi  n 

writeCenter  initial  oaa«»  no.  followed  bv  <cr>'); 

xyaddrfcol^f  line?); 

wr i  te(  ' > '  ) 
end; 
13: 

beq  i  n 

write('orint  listinq  0  n  <  >  M  X  X  orinter--y  or  n  ?'); 

xyaddr ( co 1 1 ? »  line?); 

w  r  i  t  e  (  '  >  '  ) 
end; 
la: 

write('at  end  of  file'); 
15: 

write('li  sting  beinq  Droduced'); 
\b: 

beai  n 

wri te( 'SFTMARKER  MODE    R)eqin  E)nd  Nlewlocn'); 

xyaddrCcoll?  ♦  2,     line?); 

write ('move  cursor  then  cntrl  s  to  setmarker  '); 

write('cntrl  q  to  quit'); 

xyaddr(col%  1  i  n  e  3  )  ; 

write( 'text  bet  ween/ i nc 1 ud i nq  B)  and  E)  chars  '); 

wri te( ' is  nlaced  before  the  cursor.') 
end; 


1  0? 


t7: 

bea  i  n 

wri  te( 'LOCATF  MODE ' ) 
end; 
18: 

bea  i  n 

wri te( 'REPLACE  MODE') 
end ; 
19: 

write('at  beainninn  of  file'); 
20: 

wri te( 'XCHANGE  MODE'); 
21: 

write!  '  Addf i  1 e' ) ; 
22: 

wpite('Xtractfile'); 
23: 

bea  i  n 

wri  te(  'Cursor*  Move^ent         arrows'); 
xyaddr (co 1  R  e     1  i  ne2) J 

write('<cr>       U)scrol 'ud       0)scrol ldown       d  )  a  a  e  '  ) 
*yaddr(col8,     Hne3)J 

wr  i  t  e  (  '  b  )  eai  nn  i  na    of     file       e)nri    of     file') 
end 
end     ( *    case    * ) 
end?  f *    oromot     *  ) 
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procedure  e r rormsg f msgnum :  integer); 

(*this  proc  Drinfs  out  the  error  msa  indicated 
by  msgnum  in  the  msg  area    on  the  crt  screen.*) 

begin  (*    errormso  *) 

write(be1 1 ); 
irsac  1  ear  ; 

xysddrfcol  12»  1  ine'  )  ! 
case  msqnum  of 
1  : 

write(' invalid  command' ) J 
2: 

beo  i  n 

wri  te( 'movinq  the  cursor  is  meaninaless  w  /  '  )  ; 
write! 'no  text  oresent  in  the  buffer.1) 
end  ; 

3: 


wri  t  e ( 


4  : 


wr  i  t  e  ( 


r  i  t  e  ( 


wr  i  te( 


wri  te ( 


r  i  t  e  ( 


r)eadfi1e  before  entering  EDIT  ^ODE'); 

invalid  EDIT  command'); 

r)eadfile  before  entering  FORMAT  mode  '  )  ,* 

invalid  INSERT  command'); 

all  inserted  text  has  been  erased')? 

invalid  DELETE  command'); 


beai  n 

wri te( 'deletion  direction  must  be  consistent/  i.e.') 

xyaddr(col^f  line2); 

write(*go  riaht  and  down  or  oo  left  and  ud.') 
end ; 
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r i te(  '  i nval  i d  SET^ARKER  command'); 


t  l: 

wri te( 'begin  marker  alreadv  set'); 
12: 

write! 'end  marker  alreadv  set'); 
13: 

write('new  locn  marker  already  set'); 
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l  a 


ri  te( 'begin  marker  must  occur  before  end  marker'); 


15: 

writ*»('new  locn  cannot  be  located  in  the  delimited  text'); 
16: 

wri  te( 'begin  marker  has  not  been  set ' ) J 
17: 

write('end  marker  has  not  been  set'); 
18: 

wri te( 'new  locn  marker  has  not  been  set'); 
19: 

wri  te( ' insufficient  buffer  soace  for  copy  to  occur'); 

20: 

w  r  i  t  e ( ' please  indicate  the  title  t  v  d  e  -  -  1  ,  2 ,     3/  U  '  ) ; 
2i: 

wri te( 'not  implemented'); 
?2: 

write('r)eadfile  before  enterinq  SETMARKER  mode'); 
23: 

wri  te( 'buffer  f ul  1  !  i  !  1  !  1  '  ) 
end;  ( *  case  *  ) 
pause 
end;  C*  e  r  ro  rmsq  *) 
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procedure  orinter; 

(  *  t  h  i  s  proc  mates  necessary  adjustments  to 

margins  for  the  UNIX  printer,*) 


b  e  q  i  n 
reoea t 

promo t ( 1 3 ) ; 
suser  i  nout ( 1 1 
unt  i 1  (cmd  fl)  = 
i  f  cmd  [11  =  ' v ' 
(*UNIX  printer's 
to  write  onlv  63 
t 1 nof f set  : = 
blnoffset  := 
end  e I se  b^qi  n 
t 1 nof f set  := 
blnoffset  := 
end 
end; 


f  *  orinter  *) 


'  y  '  )  or  fcmd  f 11  =  ' 

then  beqin 
driver  allows  the  us 
lines  to  a 
2 ;  (*    i     In 


)  ; 


2    (*  ? 
0; 

0 


oq  vice  66 . * ) 

at  the  too  *) 

ns  at  the  bottom*) 


f  *  orinter  * ) 


1  06 


procedure  oetnumericnd; 

(*this  proc  nets  the  numeric  Dart  of  a  format 

command  and  converts  it  to  an  integer.*) 


beai  n 

i  :=  0; 
reoeat 

i  :  =  i  +  1  ; 

ch  :=  qetbufchar(-H),* 

C  m  d  I  i  1   :  =  c  h 
until  b  real'  / 
cmdli]  :=  '  '; 
COnvrtnum(i  -  1/  number) 
end? 


(*  qptnumericmd  *) 


(*  qe  t  nume  r  i  c  nnd  *) 


orocedure  jmntomarker(markerchar:  char;  inc:  inteqer); 
(*this  proc  moves  backward  or  forward  thru  the  buffer 
until  the  marker,  e.q.  bot  is  reached.   inc  indicates 
the  direction  of  the  mover  i.e.  +•  1  =  =  >  f  o  rwa  rd  and 
-l==>backward. *) 


beq  i  n 

ch  :=  qetbufcharfO); 
if  ch  <>  markerchar  then 
reoeat 

ch  :=  qet bu f c ha r f i nc  ) 
until  ch  =  markerchar 
end? 


(  *  jmotomarker  *  ) 


j  mot  oma  r  k.  e  r 
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procedure  f  i  lenatiefc^l  le^by:  char); 

(*this  proc  reauests  user  inouf  of  the  name  of 
the  file  to  be  processed.   Ud  to  14  chars,  i^cludinq 
the  *.p'  for  a  PASCAL  file,  consisting  of  aloha  and 
numeric  chars  and  the  period  are    allowed.*) 


beqi  n 

msqc 1  ear ; 

x y addr f co 1 1 2 ,     linel) 


f  *  filename  *) 


case  call edby  o  f 
Af  : 

write('name  the  file  to  be  added  to  the  buffer,'); 
1  ': 

write('name  the  1 istinq  file,'); 
r'  : 

write('name  the  rawf i 1p  to  be  read  into  the  buffer,'); 
w'  : 

writet'name  the  raw  file  savinq  the  buffer  contents,  ')? 
x  ' : 

write('name  the  file  to  be  extracted  from  the  buffer,') 
end;  {case) 
xyaddr(colfl,  line2)J 

write(*enter  the  filename. o,  uo  to  14  chars,  '); 
w r i t e (  '  f o 1  1  owed  by  <cr>'); 
xyaddr(co1R,  lin»3); 
w  r  i  t  e  (  '  >  •  )  ; 
nam  i  ngf  i 1 e  : =  t  rue ; 
luserinout  Mma*chars); 
nam inq file  :=  false; 
write('the  filename  is   ',  name); 
pause 
end?  f*filename*) 
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function  start In(no) ines:  i  n  t  e  q  e  r  )  :  char 


line  to  be 
Doi  nq  forward 


(*this  tunc  finds  the  beoinnino  of  the 

displayed  by  either  bac k t rac k i nq  or  sk 

through  the  buffer  oy  countinq  the  number  of  line  and 

paragraph  markers  encountered  and  comoarino  this  total 

w  /  the  specified  nolines.  Startln  returns  an  1  m  or  Dm. 

nolines  values  indicate  the  *  o  1  1  o  w  i  n  q  : 

•n       backward   n  1 ine(s)» 

0       s  a  m  e  1  i  n  e  , 

■M       forward    n  line(s).  *) 


begi  n 

if  nolines  <  =  0  then  beain  (  * 
(*  to  find  start  o*  current 
ch  :=  aetbuf char  CO)  ; 
if  not  newline  and  not  bot 
repeat 
ch  :  = 


(  *  start  In  *) 
no  bac  k wards  * ) 
line  *) 

t  hen 


oetbufchar(-l ) 
un  til  newline 
end; 

if  (nol  i  nes  <  0  ) 
repeat 
reDea t 

ch  :=  aetbufchar(-l) 
until  newline  or  Dot  J 
nolines  :=  nolines  +  1 
until  (noli  nes  =  0 ) 


or  bot 
and  not  bot  then 


or    bot 

else  if  (nol ines  >  0)  and  not  eot  then 
{  go  forward  > 
repeat 
repeat 

ch  :=  getbufcharC+1) 
until  newline  or  eot; 
nolines  :=  nolines  -  1 
until  (nolines  =  0)  or  eot; 


if  bot  then  beoin 
reoeat 

ch  :=  aetbuf char ( ♦  1  ) 
until  newline 
end  else  if  eot  then 
reoeat 

ch  :=  getbufchar(-l) 
until  new  line; 
start  In  :=  ch 
end; 


(*  startln  *) 
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procedure  setcursor(nocol »  n  o  1  i  n  e  s  :  i  n  t  e  a  e  r  )  ; 

( *  t  h  i  s  proc  maps  the  cursor  col  and  row  to  the 
correct  oosi  t  ion  in  the  buffer.  Nocol  is  the 
col  locn  of  the  text  char  in  the  line  of  text. 
See  start  In  above  'or  noHnes  desc  r  i  ot  i  on  .  *  ) 

beqin  f*  setcursor  *) 

ch  :=  s t art  1 n (no  1  i nes ) ; 
if  nocol  =  lmarqin  then  heain 
if  bo  1 n  then 

colno  I-     lmarqin  +  1 
else  if  boo  then 

colno  :  =  pmarg  i  n  +  1 
else  if  ch  =  tabch  then 

orocess  t  ab ; 
(*ot  to  1st  char  in  line  in  the  buffer  *) 
reoeat 

ch  : =  qetbuf char  ( 1 1  ) 
until  textchar  or  eo*- 
end  else  beg  i  n 
if  bo  1 n  t  hen 

i   : =  1  ma  rqi  n 
else  if  boo  t  hen 

i  : s  oma rq i  n 
else  if  ch  =  tabch  then 

i  :=  lmarqin  +  tab; 

repeat 

ch  :=  qetbuf char (  +  1  )  ; 
if  textchar  then 
i  :=  i  ♦  1 
until   (i  =  nocol)  or  newline  or  eot  » 
C*if  there  are    not  enouqh  chars  in  the  line 
then  pt  to  the  last  one.*) 
if  newline  or  eot  then 
reoeat 

ch  :=  oet bu f c h a r f -  1 ) 
until  textchar; 
colno  :  =  i 
end 
end?  C *  setcursor  * ) 
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orocedure  ad  J  us t 1 n C 1 ncn t r  :  integer); 

(♦this  proc  inserts  extra  blanks  in  a  In  of  words 

so  that  the  last  char  of  the  las'-  word  is  on  the 

riaht  margin.   Each  In  is  divided  into  2    Darts  at 

midword.   Iblkcnt  and  rblkcnt  are  the  a  of  blanks 

inserted  to  the  left  and  right  of  midword,   endblkcnt- 

is  the  total  U    of  blanks  to  be  inserted  in  the  In. 

blklocns  indicates  where  w/in  the  In  blanks  are     located. 

inc  is  the  offset  in  blklocns  due  to  orevious  blank 

insertion.   lend  is  the  blank  oosition  oreceding  midword.*) 

var 

endblkcnt*  i»  i nc >      Iblkcnt*  rblkcnt:  integer? 
midword*  wordent*  lnsi?e*  lend:  inteoer; 
blklocns:  arrav  fl..?01  of  integer; 


orocedure  cntwordsJ 

(♦this  proc  counts  the  U    of  words  in  a  In  of  text 

and  finds  out  where  blanks  may  be  inserted.*) 


beoi  n 
ch 
wor 
i  : 
i  f 


Cnt words  ♦ ) 


den 
=  1 
1  ns 
hi  I 

ch 
i  f 


start  1 n( 
t  :=  0; 


l  ) 


e  >  centerofnq  +  3  then  begin 

i  <=  Insize  do  begin 

=  get bu  f char (  +  1  )  ; 

h  =  '  '  then  oegin 

heck  for  2.    soaces  toaether) 

(wordcnt>=l)an(jCbl  klocns  [wordent]  <>  i  -  1  )  t  h 
wordent  :=  wordent  +  1* 
b 1 k 1 oens fworden t 1  :  =  i 
end  else  if  wordent  < 
wo  rdc  n  t  :  =  1  ; 
bl klocns  til   :=  i 
end 
end  * 

i  :=  i  *  1 
>nd; 
iordcnt  :=  wordent  +  1 


en  bea  i  n 


1  then  begin 


end 
end? 


f  *  en t  wo  rds  * ) 


1  1  1 


procedure  leftside; 

(  *  t  h  i  s  proc  adjusts  the  left  half  of  the  line 

by  insert inq  extra  blanks  to  the  left  of  midword*) 

beqi  n  (*  1 ef t si  de  *  ) 

i  :=  1; 
inc  :=  0; 

lend  :=  lolkcnt  *  (midword  -  1); 
ch  :=  s  t  a  r  t  1  n  (  0  )  ; 

)    :=  l; 

reneat 

ch  :=  oetbufcharftl); 
write (out  f  i  1 e  t     ch  )  ; 

if  (inc  <  lend)  and  (lblkcnt  >  0)  then  begin 
if  j  =  blklocnsH)   then  beqin 
for  n  :=  1  to  lblkcnt  rlo  beqin 

i  :=  j    +    1; 

w  p  i  t  e ( out  f  i  1 e /  '  ') 
end ; 

i     :  =    i     +     1  ; 
inc     ' -     inc     +     Iblkcnt? 
blklncnsMl      :=    Dlklocns(i)      +     inc 
end 
end; 

i    :=    j    ♦    1 

until     inc     >  =     1  end 
end;  (  *    1  ef  t  si  cie    *  ) 


1  1? 


Drocedure  rtside; 

( *  t  h  i  s  Proc  adjusts  the  p  i  q  h  t  half  of  t  h  p  line 

bv  inserting  extra  blanks  t o  the  rioht  o*  midword*) 


beqi  n 


(*  rt si  de  *) 


i  :  =  midword? 
reoeat 

ch  :=  net bu f c ha r  (  *  1  )  ; 

wp  i  t e ( ou t  f  i 1 e  »  ch); 

if  (i  <  wordcnt-)  and  (rblkcnt  >  0)  then  beqin 
if  j  =  blklocnsti]  then  heoin 
for  n  :=  1  to  rblkcnt  do  beqin 

i  :=  j  ♦  l; 

w  r  i  t  e (out  f  i  1 e /  '  '  ) 
end ; 

i  :  =  i  ♦  l ; 

i  nc  : =  inc  *  rblkcnt? 
blklocnsfil   :=  blklocnsti]   +  inc 
end 
end; 

i  :=  j  +  l 

until   j  >  Inside 
end;  f*  rtside  *) 


beqin  (*adjustln*) 

1 ns  i  re  : =  1 n 1 enqt  h ; 

endblkcnt  :=  rmarqin  -  (lnsize  +  Imarqin); 
if  endblkcnt  >  0  then  beqin 
cnt wo  rds ; 
if  wordcnt  >  0  then  beoin 

if  Incntr  mod  <?  =  0  then  beoin 


1 bl kcnt 
rbl kcnt 

midword 


=  endblkcnt  div   (wordcnt  -  1); 

=  1  b  1  k  c  n  t  +•  1  ; 

=    wordcnt  +  dbl  kcnt*(wordcnt-l  ) -endb 1  kcnt  ) 


end  else  beqin 


rbl kcnt 
1 bl kcnt 
m  i  dword 
end; 

leftside; 
pt  s  i  de 
end 
end 
end; 


=  endblkcnt  div  (wordcnt  -  1); 
=  rblkcnt  ♦  1  \ 

=  endblkcnt   t  1   -  rblkcnt   *   (wordcnt  -  1) 


( *    adjust  In  *) 
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procedure  displayln; 

(*tMs  proc  causes  one  1  inp  of  ud  to    80  ch^rs 

to  oe  disolaved  on  the  crt  screen  at  the  line/ 

row  position  indicated  by  rowno.*) 


beq  i  n 

i  f  bo  In  then 

colno  t=  lnnarqin  +  1 
else 

Colno  1=  pmarqin  +  1 
x yaddr f co 1  no r  rowno); 


f  *  di  so  1  ay  1 n  *  ) 


repeat 

ch  :=  oet bu f char f  +  1  )  ; 
if  textchar  then  beqin 

wr  i  t  e ( c  h ) 
end 
until  newline  or  ent 
end? 


( *  di  so  1  ay  1 n  *  ) 
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proc 
(*th 
usua 
on  t 
star 
Curs 
var 

bu 
beqi 
In 
w  P 
bu 
In 
ro 
cn 
re 


edure  d i so  1  ay sc reen ( co 1  »  nolines,  row:  integer); 

is  Droc  causes  uo  to  (  1  as t 1 n-msql ns ) , 

My  (<£U-3)  or  21,  lines  to  be  disolayed 

he  crt  screen.   nolines  is  described  in 

tin.   col  and  row  indicate  the  final 

or    position.*) 


(*  d i so  1  ay sc reen  *) 


un 
i  f 

i  f 

el 

el 

i  f 

el 

<y 
end; 


*lncnt#  Incnt:  integer; 

n 

soacing  :=  1  J 

i  t e (c 1  ear ) ; 

f 1 ncnt  : =  0; 

cnt  :=  0; 

wno  : =  1  ♦  msglns; 

:=  s t a r t 1 n ( no  1  i nes  )  ; 
oeat 

d  i  sp 1  ay  1 n ; 

buf lncnt  :=  buf lncnt  +  l; 
1 ncnt  : =  lncnt  ♦  1  ; 
rowno  t=  rowno  ♦  1? 
c  ase  I nspac  i  ng  of 
1  : 

null! 

2: 

if  rowno  <  lastln  then  begin 
lncnt  :=  lncnt  +  1 » 
rowno  t=  rowno  +  1 
end; 
3; 

beoi  n 

lncnt  :=  lncnt  +  2; 
rowno  : =  rowno  +  <•? 
end 
end  ( *  case  * ) 
til  f lncnt  >=  lastln  -  msglns)  or  eot; 

eot  then 
buf lncnt  :=  buflncnt  -  1; 

row  =  1  then 
set  cursor ( co 1  >     -buflncnt) 
se  if  rowno  =  lastln  then 
setcursor (co 1 >     0 ) 
se 
setcursor ( co 1 t     -buflncnt  -  row); 

1 nsoac  i  ng  =  1  t  Hen 
rowno  i-    row  +  msglns 
se 

rowno  :=  row  *  lnsoacinq  -  lnsoacina  +  1  ♦  msglns; 
addrCcolnor  rowno) 

( *  di  spl aysc  reen  *  ) 


1  IS 


procedure  scpoIIud? 

(*this  proc  causes  the  user  window  to  mov< 
backwards  thru  the  text  far  enouoh  to 
move  16  lines*  3/U's  o*  a  screen,  or 
until  hot  is  reached.   It  provides  for  an 
overlaor  i.e.  the  too  S  lines  will  become 
the  bottom  5  lines*  for  continuity.*) 


var 

UP  1  ns 


i  n  t  eae  r ; 


beqi  n  ( *  sc  ro 1  1 ud  *  ) 

uplns  :=  overlap  -  lastln  +  msalns  -  rownof 
disolavscreen(1marain,uplns*lastln-msqlns-overlaD-1) 

end?  f*  scroll uo*) 


procedure  scrol ldownl 


(*this  proc  causes  the  user  windo 
forward  thru  the  text  buffer  far 
move  16  lines*  3/4's  of  a  screen* 
eot  is  reached.   I t 
i.e.  the  1 ast  S 


w  to  move 
ar  enouoh  to 
screen*  or  until 
provides  for  an    overlap* 
ines  will  become  the  too  S.*) 


var 

downlns:  inteqer; 

beqin  (*  scrolldown  *) 

downlns  :  =  lastln  -  msalns  -  overlap  -  rowno*" 
di sp 1 aysc reen ( 1  ma rq i n *  downlns*  overlap  -  1) 

end*  <"  *  scrolldown  *) 
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procedure  chqrownoCinc:  inteqer); 

(*this  proc  causes  the  row  nunnbe  incremented  to  be 
or  decremented  by  1.   It  uses  the  terminal's  HW 
scrollinq  feature  when  at  the  bottom  In  on  the  C^T.*) 

beqin  (*  chqrowno  *) 

if  (inc  =  -1)  and  frowno  =  1)  then 

sc  ro 1  1 uo 
el  se 

case  1 nsoac inq  of 
1  : 

if  rowno  <  lastln  then 
rowno  !=  rowno  ♦  inc 
else  beqin  { rowno  =  1  as t 1 n \ 
w  r  i  t  e  (  1  f  )  i 
di  spl ay  1 n 
end ; 

2: 

if  rowno  <  lastln  then 

rowno  :=  rowno  +  2     *  inc 
else  beqin  { rowno= 1  as t 1 n > 

writp(lf»  If); 

di  spl ay  1 n 
end; 
3: 

if  rowno  <  lastln  -  2     then 

rowno  I-     rowno  +  3  *  inc 
else  beqin  { rowno= 1  as t 1 n-2 > 

w  r  i  t  e ( 1 f  *     1f»  lf»  If); 

d  i  so  1 av 1 n 
end 
end  ( *  case  *  ) 
end;  (*  chqrowno  *) 
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procedure  mancu rsor ( i nc  :  integer); 

(  *  t  h  i  s  proc  duDlicates  the  cursor  movement 

on  the  screen  as  movement  thru  the  buffer 

so  that  there  is  a  one-to-one  correspondence 

between  the  cursor  char  and  the  buffer  char.*) 

(*inc  has  the  values  +1  and  -1.*) 

beqin  (*    maocursor  *) 

if  bop  or  boln  then  beoin 
case  i  nc  of 
nea  1  : 

beqin  (wraoaround  to  end  of  orevious  In) 
ch  :=  startln(-l); 
if  boln  t  hen 

colno  '-     Imarqin  ♦  Inlenqth  t  1 
e  1  se 

colno  :=  o^arqin  +  lnlenath  -f  1 
enrt; 
pos  1  : 
(go  forward  to  next  line) 
i  f  bo  In  then 

colno  t=  Imarqin 
e  1  se 

CO  1  no  I =  pma  rq  i  n 
end;  (case) 
chorowno ( i  nc  ) 
end  else  if  bot  then 

oromot ( 1 Q  ) 
else  if  eot  then 

o  romo t f 1 4  ) 
el  se 

{other  format  commands} 
nul  1 
end;  f*maocursor*) 
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function  q°tch^rf inc:  inteoer) :  char? 

(*this  func  returns  only  disolavable  text 
chars  from  the  buffer.   Tt  ionores  the  format 
commands  embedded  in  the  buffer.  *) 
(*  inc  has  the  values  +1  and  -1  *) 

const 

neal  =  -1 ? 
Dos  1  =  +  1  ; 


beqi  n 

case  inc  of 
neql  : 
repeat 

ch  :=  qet buf char C - 1  )  ; 
if  forrnatchar  then 

maocursor (- 1 ) 
el  se 

co 1  no  : =  co 1  no  -  1 
until  textchar  or  bot  ; 
dosI  : 
repeat 

Ch  :=  qet bu f char f 1 1  )  ; 
if  fnrmatchar  then 

maocursor (  +  I  ) 
e  1  se 

co 1  no  J  =  co 1  no  f  1 
until  textchar  or  eot- 
end;  ( *  case  *  1 
if  bot  or  eot  then 
repeat 

ch  :=  aet buf char (- i nc  ) 
until  textchar; 
qetchar  :=  ch 
end? 


f *  oetchar  * ) 


(*  qetchar  O 


1  IP 


procedure  titleomfixfvar  D^chars:  i  n  t  e  a  e  r  )  ; 
(*this  proc  chinoes  fSe  oaraoraDh  margins 
to  conform  to  thesis  manual  specifications 
for  indentation.*) 


bea i  n 

case  ch  of 
M  •  : 

pmarai  n  : =  17; 
'2'  : 

pma  rain  : =  17; 
•3': 

pma  rn i  n  : =  2 1 J 
•  ai  . 

pma  rain  : =  25 ; 
•5': 

pmara  i  n  : =  17 
end;  {case) 
pmchars  '.-     rmarqin  -  omarqin  +  1 


( *  t  i  t  1 eDmf  i  x  * ) 


endi 


C  *  t  i  t 1 eomf  i  x  * ) 
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procedure  Drocessbu f C st ar t ,     finish:  inteqer); 

(*this  proc  processes  the  buffer  after  text 
insertion/  deletion  or  format  channes/  e.q. 
rmarqin  or  lmarqin.   Only  the  oaraaraph(s) 
involved  in  text  changes  will  he  reprocessed.*) 

\/ar 

Imcharsr  Dmchars»  nocharsr  cntr:  inteqer; 
halt?  boo  lean; 


procedure  on  1 y read C s t on :  char); 

(*this  proc  prevents  orocessino  of  soecially 

formatted  text  such  as  titles/  etc.*) 


beqi  n 

reoeat 

ch  :=  qefbufcharf-tl) 

until  (ch  =  stop)  or  eot J 

halt  J  =  true 
end; 


C  *  on  1 y  read  * ) 


on  1 y  read  * ) 
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been  n 

Imchars  :  =  rrra 
pmc.  hars  t  =  ma 
Halt  : =  false; 
ch  :=  start  1 n ( 
i  f  bu  f  i  ndx  >  s 
reoea t 

ch  : =  star 
until  boo  an 
if  bot  then 
repeat 

ch  : =  qe 
until  n  e  w 1 
end; 
i  f  bop  then 

nochars  : =  c 
else 

noc  hars  : =  1 
reoeat 

c  n  t  r  :  =  0  ; 
reoeat 

c h  : ~    neto 
if  textcha 
cnt  r  :  = 
if  bo  1 n 
ch  :  = 
buffer 
end 
end  else  i 
on  1 vread 
else  if  c h 
ch  : =  ae 
t  i  t 1 epm  f 
on  1 y  read  Com ) 
end  else  i 
nocha  rs 
until  new  1  i  n 
i  f  no t  ( new  1 
i  f  ch  <>  ' 
f *  backt 
reoeat 

ch  :  = 
until  c  h 
buffpp fbuf 
nochars  :  = 
end  else  if 

noc  hars  :  = 
el se  if  halt 
hal t  :-    fa 
until  boo  and 
end ; 


(  *  orocessbu  f  * ) 
rqin  -  1 m  a  r g  i  n  +  1  ; 

rqin  -  omarqin  +  1; 

0)  ; 

tart  then  beo i  n 

tln(-l) 

d  (bufindx  <=  start )  or  bot; 


tbufchar f  +  1  ) 
i  ne 


mchars 
mc  h  a  rs  ; 


uf char (  +  1  )  ; 

r  or  boln  then  beqin 

cnt  r  +  1 ; 

then  beqin 
•   i  • 

(bu f  i  ndx 1   :  =  c  h 

f  ch  =  filloffch  then 
(f i 1 Ich) 

=  titlech  then  heoin 
tbufcharCt-1  ); 
i  x  (  omc  hars")  ; 

f  c  h  =  t  abc  h  then 

: =  noc  hars  -  tab 

p  or  (cntr  =  nochars)  or  eot  or  halt 

ine  or  halt  or  eot)  then  beqin 

'  then 
rack  to  space  before  word  *) 

qetbufchar(-1  ) 

—     * 
i  ndx 1  : =  1 m ; 

1 mc  h  a  r s 
boo  then 

pmcha  r s 

then 
1  se 
fbufindx  >=  finish)  or  eot 

C  *  processbu  f  * ) 
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procedure  movecursorl 

f  *  t  h  i  s  proc  causes  the  cursor  to  move  on  the  screen 
as  well  as  mapping  the  cursor  movement  to  the 
movement  thru  the  buffer.  *) 


beain 

i  f 
f 
c 

els 
( 
c 

els 

3 
C 

end 
s 
C 

end 
( 
s 

els 
( 
s 

els 
f 
i 
d 

end 
( 
J 
d 

end 
( 
s 
c 

end 
n 

xya 
wr  i 
x  y  a 
end? 


i  nch 

*  mo 
h  :  = 
e  i  f 

*  mo 
h  :  = 
e  i  f 
et  cu 
hqro 

el  s 
etcu 
hqro 

els 

*  ba 
C  ro  1 
e  i  f 

*  f  o 
crol 
e  i  f 

*  go 
mot  o 
i  spl 

els 

*  go 
mot  o 
i  spl 

els 

*  mo 
etcu 
hqro 

els 
uH  ; 
ddrC 
te(c 
ddr( 


=  r  1 

f  orw 
etcha 
nc  h  a  r 

bac  k 
e»-  cha 
nc  h  a  r 
or  ( co 
of-1  ) 
if  in 
or  ( co 
o(  +  l  ) 
if  in 
ward 
p 

nc  h  a  r 
ard  3 
own 
nc  har 
o  the 
rker  ( 
sc  ree 
if  in 
o  the 
rker( 
sc  ree 
if  in 

to  1 
or  (  1  m 
0(M  ) 
if  in 


(  *  movcursor  *  ) 
oh  t  t  hen 
ard  1  col  *) 
r(  +  l) 

=  left  t  hen 
ward  1  col  * ) 
r(-l  ) 

=  uo  then  beain  (*  move  up  1  line  *) 
lno,  -n; 

char  =  down  then  b*»qin  (*  move  down  1  line  *  ) 
1  no,  +1  ) ; 

char  =  ' U '  then 
3/4 ' s  sc  reen  *  ) 

=  '0 •  then 
/4 ' s  sc  reen  *  ) 

=  '  b  '  then  beoin 

beqinninq  of  file  *  1 
bot  c  har  ,  -  1  )  ; 
n (  1  ma  ra  i  n ,  0,  +1) 
char  =  'e'  then  heoin 

end  of  file  *) 
eotchar,  +1); 

n(rmarain,  -(?  *  overlao)  +  1  /  2.     *  overlap) 
char  =  cr  then  beqin 
st  col  of  next  line  down  *) 
a  ro  i  n  ,     ♦  1  )  ; 

char  =  ' o '  then 


col  * ,     1  ast 1 n) 

h); 

co 1  no  t     rowno ) 


(*  movecursor  *) 
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procedure  readrawl 

(*this  Droc  reads  the  raw  *i1e>  if  present/  info 
the  buffer  and  reorganizes  the  buffer  into  the 
correct  structure.   if  no  file  is  present  the  buffer 
is  set  ud  for  the  creation  of  a  new  file.*) 


procedure  newbufinit? 

(*this  proc  initializes  the  buffer  f o 

creation  of  a  new  file,*) 


the 


insert 
i  nsheq ! 


bea  i  n 

(*botchar ! format rec ! 

( *beo  i  ndx !     ... 

beqi  ndx  : =  1  ; 

buffer  fbeqindx]  :=  botchar; 

bu f f e r fbeq i ndx  +  11  :  =  pm; 

bufindx  :=  beaindx  +  l! 

insbeg  :  =  beaindx  ♦  ?.', 

insend  :=  buflimit  -  2.1 

buffer  Tbuf limit  -  11 
end } 


f  *  newbufinit  *) 

area       ! eot ch a r ! empt y *  ) 

insend!  !  bu  f 1  i  m  i  t  * ) 


=    eot  c  h a  r 


(  *     riPwhuf  ini  t 


12^ 


procedure  nrocessraw 
f  *  t  h  i  s  proc  processe 
no.  of  chars  to  be  i 
are  considered  and  i 
erat ions.  A  orocesse 
if  it  is  a  oa  ragrann 
va  r 

cntr#  liic^rs»  noc 
beqi  n 


:  r  rma  rq i n 

:  =  r-narqin 

:  =  I  me  hars 

:=  0; 


pmchars 
1 mchars 
nocha rs 
bu  f  i  ndx 

j  :=  0; 

while  no  t  eo f ( i  n  f  i 
en t  r  : =  i ; 
reoeat 

read ( i  n  f  i  1 e  f     c 

bufindx  :=  buf 

if  fill  t  hen 

if  t  ex  t  c  ha  r 

enf r  :  =  en 

if  bol n  t  h 

ch  :=  ■ 

end  else  if 
noc  hars  :  = 
i  :=  0 
,         end  else  if 
noc  hars  :  = 
else  if  c  h  = 
bu  f  f  e  r f bu  f 
bu  f  i  ndx  : =  bu  f  i 
read ( i  n f  i 1 
t  i  f  1  epm  f  i  x 
end ; 
buffepfbufindx 
unt  i  1  new  1  i  ne  or 
i  f  no t  ( new  1  i  ne 
if  Ch  =  '   '  th 
buffer  Tbu  f  i  n 
i  :=  0 
end  pise  begin 
j  :=  0; 
repeat 

i  :=  j  +  1 
until  buffer 
buffer fbu  fin 
end/* 

noc  hars  : =  lmc 
end 
end 
end* 


s  the  raw  file  by  counting  off  the 
n  a  line  after  the  marain  spaces 
ncludes  the  orooer  soacing  consid- 
d  line  is  oreceded  bv  a  lm  or  om 
.  Previously  set  lm's  are  blanked*) 

harsr  mchars:  integer* 

( *  process  raw  * ) 

-  oma  rg  i  n  t  1  ', 

-  1  ma  rg  i  n  +  1 ; 


le)  do  beg  i  n 


h)  ; 

i  ndx  +  1 ; 


or  boln  then  begin 
t  r  ♦  1  ; 


boo  then  beg  i  n 

omc  Mrs; 

c  h  =  t  abc  h  then 

noc  hars  -  tab 

titlech  then  beain 
i  ndx 1  : =  c  h ; 
ndx  t  1 ; 
e,     ch  )  ; 
Come  hars) 

1  :=  ch 

(cntr  =  nochars)  or    eof(infile) 
or  eoffinfile))  then  beqin 
en  oeq  i  n 
dx 1  :  =  1 m ; 

{backer*  to  '  '  before  word) 


tbu  f  i  nd: 
d  x  -  j  1 


hars 


=  1 


( *  opocess  raw  * ) 
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procedure  oldbufinit; 

(  *  t  h  i  s  proc  initializes  the  buffer  after  an 

file  has  been  read  in.*) 


ex  i  s t  i  nq 


var 

bu  f  end : 


n  t  e  a  e  r  ; 


begi  n 

(*bot 

pro 

oro 

buf 

J  • 

i  : 

reo 

b 

b 

i 

i 

un  t 

i  ns 

beq 

i  ns 

end? 

beq  i  n 

set 

wri 

f  i  1 

reo 

o 

c 
un  t 
i  f 


end 


o 

b 

d 

end 

end; 


cha 
mpt 
ces 
end 
=  b 
=  b 
eat 
uf  f 
uf  f 


i  1 

end 
i  nd 

beq 


def 
te( 
ere 
eat 

rom 
use 
h  : 
i  1 

Ch 
mpt 
ewb 
el 
mot 
i  1e 
ese 
ldb 
uf  i 
i  sp 


(*  ol dbuf  i  ni  t  *) 
rj  formatrec !om! insert  ar^a' text leotcharlemoty*) 

( 1  a ) ; 

s  raw ; 

:=  bu  f  i  ndx ; 
u  f  1  i  m  i  t  -  1  ; 

u  f end ; 


er  T  j  1 
er  T  i  1 

i  -  1 

j  -  1 
i  =  ?; 

'  -   > ; 
x  :  =  i  -  l ; 

: =  bea  i  nd* 


=  buf f er  [i] 


( *  ol dbuf  i  ni  t  *  ) 
( *  readraw  *  ) 


aul t  s  J 

clear);  {for  previous  reads) 
ad  : =  t  rue ; 

pt  (  I  1  )  ; 

r  i  nput  (  1  )  ; 

=  sst  r  i  nq  [  1 ] 

(Ch  =  • y  '  )  or  (ch  =  'n'  )  ; 

=  'n'  then  beqin  {emotv  new  file) 

vbu  f  : =  t  rue ; 

u  f  i  n  i  t 

se  beqin  (  *  nonemoty  enstina  fire  *  ) 

ybu  f  : =  false; 

naitie('r')  J 

t(infile>  name); 

u  f  i  n  i  t  ; 

ndx  : =  beqi  ndx  ♦  1  ; 

1 avsc reen ( 1 marai n ,  Or  1) 

(  *  readraw  * ) 
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procedure  writers 


(*this  proc  writes  the  buffer  back  to  storage 


beg in  f*  write^aw 

f  i 1 ©name ( ' w ' ) J 
rewr i t e (out f i 1 e t     name); 
jmotonnarker(botchar,  -1  )  1 
ch  :=  aetbufcharCO"); 
wr  i  t  e  (out  f  i  1  f> ,     ch  )  ; 
i  f  not  eot  then 
reoeat 

ch  :=  aetbufchar(-M); 
if  not  (ch  in  Trubout*  bm 
w  r  i  t  e ( out  f  i 1 e  *  ch) 
unt i 1  eo t ; 
f 1 ush (out  file) 
end ; 


nrrl  )  then 


(*  writeraw  *  ) 
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procedure  1 i s t orocessed ; 

(this  oroc  processes  the  buffer  and  writes  out 
the  Processed  text  to  the  user-indicated  file 
for  printing  w/  no  coov  saved.) 

va  r 

lncnt:  integer? 


procedure  hlankl ine(nol ines:  inteoer) ! 

f*  this  proc  writes  out  a  blankline  of  processed 
text  to  the  output  file.*) 


beg  i  n 

for  i  :=  1  to  nolines  do 
wr i t e ( out f i 1 e t     cr,  If) 
end ; 


(  *    blanid  ine    *  ) 
(  *    blankl ine    *) 


procedure  endpage? 

(*this  proc  performs  the  end  o*  oaqe 
processing  necessary  for  paae  nurrberina,  prooe 
margins*  etc.*) 

begin  ( *  endpaae  *) 

reoeat 

blankl  ined  ) ; 

1 ncnt  : =  1 ncnt  +  1 
until  lncnt  >=  maxoglns  -  Dd^arqin; 
if  oageno  <>  0  then  beoin 

write(outfilef  oageno:  centerofpg)? 

lncnt  : =  lncnt  f     1 ? 

oaaeno  :=  oaaeno  +  1 
end; 

blankl inetmaxpq Ins  -  lncnt  -  blnoffset) 
end?  (*    endoaae  *) 
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procedure  wri  tet  i  t  leMndentn:  inteoer); 

(  *  t  h  i  s  proc  writes  out  one  I ine»  a  title*) 


beain  (*  writetitle  *) 

for  i  :=  1  to  indenfn  do 

write(outfile/  '  '  )  ; 
reoeat 

ch  :=  qet buf char ( + 1 ) ; 
if  not  formatchar  then 
wr  i  t  e (out  f  i  1 e ,  ch) 
until  new  line/ 
wr  i  t  e (out  f  i  1 e  *  cr,  1  * ) 
end  ? 


ri  tet  i  t 1 e  * ) 
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(  *    processt  i  t 1 e  * ) 


or  (lnc"t  =  tmargin  +  b)   then 


procedure  orocessti t le? 

classification  as  1st  order,  2nd  order,  etc, 
according  to  thesis  manual  instructions.*) 
beqi  n 

ch  :=  qetbuf char ( + 1) ; 
case  ch  of 
1  1 ' : 
beqi  n 

endpaqe ; 

b 1 ank I i ne ( t ma rq i n  +  3); 
omarqi  n  : =  17; 
writetitle(center); 
blank]  ine(2)  '. 
lncnt  :=  tmarqin  *  b 
end; 
•2': 
beqi  n 

if  (lncnt  =  tmarain) 
lncnt  : =  lncnt  -  1 
e  1  se 

b 1 ank 1  i  ne ( 1  ) ; 
omara  in  : =  17; 
wri  teti  tle(lmargin) ; 
blankl ine( 1 ) ; 
lncnt  :=  lncnt  ♦  3 
end; 
•3': 
b  e  a  i  n 

oma  rain  : =  2 1  » 
writetitle(lmarqin  ♦  4  )  ; 
blankl  ine( 1  )  ; 
lncnt  :=  lncnt  t  2 

end? 
ia.  . 

beai  n 

pma  rq  i  n  : =  25 ; 

wr i t e t i t 1 e ( 1 marg i n  +  8); 
bl  ankl  ined); 
lncnt  :=  lncnt  +  2 
end; 

b  e  a  i  n 

endpageJ 

b 1 ank 1 i ne ( t marai n  +  3); 

oma  rain  : =  17; 

writetitleCcenter); 

bl ankl ine(2) ; 

lncnt  : =  tmargin  +  6 
end 
(case) 


end 
end  ? 


C  *  processt  i  t  1  e* ) 
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procedure  1  i  s t  1  n  ', 

(*this  proc  writes  one  line  of  processed  text 
to  the  out  out  file.*) 

begi  n  (  *  1  i  st  1  n  *  ) 

if  c  h  =  titlecH  then  begin 
orocess t  i  t  1  e  ? 
at  i  t 1 e  : =  t  rue 
end  else  beg  i  n 
if  bo  I n  t  hen 

for  i  :=  1  to  lmarain  do 
write(outfile,  '  ' ) 
else  if  boo  then 

for  i  :=  1  to  omarain  do 
wr  i  t  e ( out  f  i 1 e  >  '  ') 
else  if  ch  =  breakch  then 
for  i  :=  1  to  lmargin  do 
wri  te(out  f i  le#  '  '  ) 
else  if  ch  =  ooeiectch  then 

endpage  ? 
reoeat 

ch  :=  qetbuf char  C + 1 ) ; 
if  not  new  1  i  ne  then 
if  textchar  then 
wr  i  t  e ( out  f  i 1 e /  ch) 
until  newline  or  eot»' 
wpi  t  e (out  f  i 1 e /  c  r ,  If) 
end 
end;  (*  Hstln  * ) 
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beqi 
at 

In 

al 

f  i 

re 

j  T 

rp 

un 

or 

su 

CO 

ce 
or 
tm 
bm 

O'l 

re 


n 

i  1 1  e 
soac 
i  st  i 
1  ena 
writ 
ot  om 
neat 
ch  : 
ti  1 
omot 
ser  i 
nvrt 
nt  er 
omDt 
arqi 
a  rqi 
marg 
oeat 
b  1  an 
1  ncn 
repe 
1  i 
i  f 


el 


unt  i 

endp 

until 

cause? 

a  1  i  s  t  i 

end? 

( *     1 i  st processed  *  ) 
: =  false; 
ina  : =  2 ; 
n  g  :=  true; 
me ; 

e (out  f  i  1 e*  lstrjnq); 
arker (botcHar  ,     - 1 )  ; 

=  aetbuf charC  +  1  ) 
new  line; 

(12); 

nput ( 3 ) ; 

num ( 1 f     paqeno ) ; 

ofoq  :=  (rmarqin  -  Uarqin)  div  ?  +  lm^rain 

(15); 

n  :=  tmarain  -  tlnoffset; 
n  :=  bmarqin  +  blnoffset; 
in  :=  oqmarqin  +  blnoMset  »' 

k 1  i  ne ( t  marqi  n )  ; 
t  : =  t ma  rqi  n ; 
at 
St  l  n; 

not  atitle  then 
case  1 nsoac  i  nq  of 
1  : 

lncnt  :=  Incnt  ♦  1  » 

2: 

bea  i  n 

b 1 ank 1  i  ne ( 1  )  ; 
lncnt  : =  Inert  +  2 
end; 
5: 

bea  i  n 

blankl i  n  e  (  2  )  ; 
lncnt  :=  Inert  +  3 
end 
end  ( *  case  * ) 
se 

atitle  :=  false 

1  eot  or  (lncnt  >  maxoalns  "  bmarqin); 
aqe 
eot  ; 


g  :  =  false 


(  *  1  i  st Drocessed  * ) 


3  2 


beqi  n 
mark 
case 

'  A 


(*    c  hec  knia  r  ke  rs  *) 


ersok  :=  t  rue } 
call edby  o  f 

<Addf i le> 
mt es f  5 ; 

<CODV> 

if  beqmset  and  endmset  and  newmset  then  heain 

mt  est  1  ; 

mtest  2 
end  else  beqi  n 

mt est  3 ; 

m  t  e  s  t  a  ; 

mtest5 
end; 
.'  : 

{ mo ve } 
if  beqmset  and  endmset  and  newmset  then  heain 

mt  est  1  ; 

mtest  c? 
end  else  bea  i  n 

mt  est  3; 

m  t  e  s  t  a  ; 

mtest5 
end ; 

{ reo lace) 

if  beqmset  and  endmset  then 

mtest  1 
else  beq  i  n 

mt  es t  3 ; 

mtest a 
end? 


< 

search  > 

i 

f  beqmset 

mtest  1 

e 

1 se  beqi  n 

mtest  3; 

mtest 4 

and  endmset  then 


end, 


<Xt  Pact  file) 

i  f  beqmset  and  endmset 

mtest  I 
el se  beqi  n 

mtest 3; 

mtest 4 


then 


end 
end ; 


end 
(ca 


se> 


(  *  checkmarkers  *) 
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procedure  format 
begi  n 

promDt (3) 
end; 


( *  format  * ) 
( *  format  * ) 
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procedure  edit; 
var 

exit:  boolean; 


Drocedure  cooyJ 

(*this  proc  allows  the  user  to  coov/duo 1 i cat e 

a  body  of  text  w/in  th«»  buffer  as  long  as  the 

entire  coov  will  fit  into  the  buffer.   The 

material  to  be  cooied  is  delimited  by  ?  cursor 

settinqs.   The  new  locn  is  also  set  w/  the  cursor. 

Mote  that  the  copy  will  oreceed  the  cursor  locn.  * ) 


var 

incr  textlenqth,  start,  finish:  inteqer; 

procedure  coDychar; 

(*this  proc  actually  Der'orms  the  char 

transfer  in  the  coDyinq*) 

heqin  (*  coDychar  *) 

bu f f er [ i nsend)  I-    em; 

bu f f er [end i ndx  1  :=  em; 

repeat 

insend  :=  i  nsend  -  1  J 

endindx  :=  endindx  -  l; 

bu f f e r f i nsend]  :=  bu * f e r Tend i ndx ] 

until  endindx  =  beoindx  +  l; 

buffer (insend  -  1]  :=  bm; 

bu f fer (Peg i ndx 1  :=  b^; 

insend  :  =  insend  -  2. 
end;  (*coovchar*) 
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begi n  ( *  codv  * ) 

chf»ckmarWers(  '  c  '  )  i 
if  mark e  r sok  then 

if  insend  -  insbeq  >  endindx  -  b  e  g  i  n  d  x  then  heain 
text  length  :=  endindx  -  beaindx; 
if  bufindx  <  newindx  then 

i  nc  t  =  +1 
else  if  bufindx  >  newindx  then 

i  nc  t  =  -  1 
e  1  se 

inc  :  =  0 ; 
repeat 

ch     :=    qet bu f c h ar ( i nc ) 
unt  i  1     ch     =    nrr ; 
reoeat 

ch  :=  aet bu f c har ( -  1  ) 
until  not  forrn^tchar; 
if  endindx  <  insbea  then  beain 
(  .  .  i  b  m  !  ...  !  e  m  !  ... !  insendJnm!  ...> 
start  : =  begi  ndx ; 

finish  :=  insend  f     1  -  textlength; 
CODychar 
end  else  begi  n 
{...  !  insendlnm!  ...  Ibii!  .  ..  Jem!  ..  .} 
bufindx  :=  insend  +  ?J 
repeat 

ch  :=  bu f f e r fbu f i ndxl  ; 
bufindx  :=  bufindx  +  (+1) 
un  til  c  h  =  em ; 
endindx  :=  bufindx  -  1? 
beaindx  :=  endindx  -  textlenath; 


1  ; 


start  :  =  i  nsend  + 
finish  : =  endi  ndx 
cooychar 

end; 

buf  i  ndx  : =  i  nsbea  - 

i mot omarke r ( nm ,     +1); 

buf f er fbuf i ndx 1  :=  nm; 

processbu  f  (  st  art  ,     finish") 
end  e 1 se 

errormsgf 1 Q ) 


-  t  ex  t 1 engt  h 
textlength; 


end ; 


( *  copy  * ) 
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procedure  delete; 


var 

f orwrdr  bac  k ward, 
stop:  i  nt eaer ; 


f  i  n  i  shed:  boo  1 ean 


orocedure  delscreenMir:  char); 

(*this  opoc  writes  blanks  or  blank  lines  to 

the  screen  to  show  how  the  deletion  will 

appear.   note  no  deletion  occurs  in  the  buffer.*) 

begin  (*  delscreen  *) 

{deletion  only  reflected  on  screen) 
if  (dir  =  riqht)  and  not  backward  then  begin 

f orwrd  :  =  t  rue  J 

write( '  '); 

ch  :=  aetchar ( ♦  1  ) 
end  else  if  Cdir  =  left)  and  not  forwrd  then  begin 

backward  : =  true; 

wri  te(l eft  #  '  ' ,     left); 

ch  :=  oet  char ( - 1 ) 
end  else  if  (dir  =  uo)  and  not  forwrd  then  begin 

bac  kward  : =  t  rue ; 

b 1 ank 1 n ( rowno ) ' 

set  cursor ( rma rq i n /  -1); 

c  hgrowno ( -1 ) ; 

if  rowno  =  1  then  begin 
SC  ro 1  I  UP ; 

for  i  :=  1  to  overlap  -  1  do 
b I ank 1 n ( rowno  +  i ) 

end 
end  else  if  (dir  =  '  ')  and  not  backward  then  begin 

forwrd  • =  t  rue ; 

b 1 ank 1 n ( rowno ) ; 

set  cursor ( 1  ma rgi n ,  +1); 

chgrowno(+l ) 
end  e 1 se 

er rormsg ( 9 ) ; 
x vaddr (co 1  no t     rowno) 
end;  (  *    de  1  sc  reen    *  ) 
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procedure  delorocess? 

(  *  t  h  i  s  proc  causes  the  deleted  text  to  be 
removed  from  the  buffer  and  processes  the 
remain inq  text  as  required.*) 


beg  i  n 
del 
i  f 

{...  ! 

(..  .  ! 
b 


u 
i 

p 

end 


( *  del  process  * ) 


end  : =  bu  f  i  ndx ; 
forwrd  then  oeqin 

delete    area   !   insert 
delbea! . .. ! de 1  end ! insbea! . 
u  f  i  ndx  : =  de 1  ben > 
eoeat 

ch  :=  get bu f char f - 1 ) ; 

if  formatchar  then 
deloeg  :=  delbeq  -  1 
ntil  textchar; 
nsbeq  :=  delbeq; 
rocessbuf (delbeq# 

else  if  backward 
delc^ar!   insert 
de 1  end  ! i  nshea !  . . 


area 
i  nsend 


del  end) 

t  Hen  bea i  n 

area        ! de 1 et  e  area 
1  insend! ! de 1  be 


gl...> 


u 
i 

i 

D 

end 
end#* 


uf  i  ndx  : =  i  nsbeq  -  1  " 
eoeat 

ch  :=  aet bu f char ( -1 ) ; 

if  formatchar  then 

del  end  : =  He  1  end  -  1 
ntil  textchar? 
nsend  :=  delbeq; 
nsbeq  : =  del  end; 
rocessbu f ( de 1  end t     delbeq) 


f  *  de 1 o  rocess  * ) 


1  3* 


been  n  (*  del ete  *) 

x y addr (co 1 no»  rowno); 
finished  :=  false? 

forwrd  :=  false;  (also  downward} 
backward  :=  false;  {also  uDward> 
del  beg  : =  buf  i ndx ; 
repeat 


read (inchar) ; 

if  inchar  in  [  r  i  qh  f 

del sc  reen (inchar) 
else  if  ch  =  quit-  then 

finished  : =  t  rue 
else  if 


1  ef t ,     uor  '  '1  then 

(no  deletion  occurs) 


Tinisneu  •-  \  rue 

se  if  inchar  =  accept  then  beqin 
(deletion  w/in  buffer  actually  occurs) 
del  process ; 
finished  : =  t  rue 
end  e 1 se  beoi  n 
er rormsg ( 8 ) ; 
prompt ( 5 ) ; 

xyaddr f co 1  no t     rowno) 
end 
until  finished; 
if  forwrd  then 

stop  :=  delbeq  (bac<ward) 
e  1  se 

stop  : =  del  end; 
reoeat 

ch  :  =  aet  bu  f char ( - 1 ) 
until  (buf i ndx  <=  stoo)  and  boo  or  bot; 
if  bot  t  hen  beoi  n 
reoea t 

Ch  :=  qetbuf char ( ♦ 1 ) 
until  boln  or  boo  or  eot; 
if  eot  then 

emo  t  vbu  f  '»-    true 
end ; 
i  f  empt ybuf  then 

wr  i  t e (c I  ear ) 
else 

di spl aysc reen ( 1 marai n ,  -overlaD,  overlap  + 
end;  (*    delete  *) 


1  ) 
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procedure  exchange? 


(*this  proc  allows  the  user  to  chanqe  both  format 
commands  and  text  characters  directly  in  the  buffer 
primarily  used  for  t roub 1 e-shoot i na . * ) 


It  is 


bea  i  n 
reoeat 

read (inchar); 

if  inchar  <>  quit  then  beqin 
bu f f e r fbu f i ndx 1   :=  inchar; 
ch  :=  qetbufcharf+1); 
xyaddr (4,  lastln); 
if  texfchar  then 

w  r  i  t  e ( ch ) 
else  if  boo  then 

w  r  i  t  e  (  •  %  '  ) 
else 

wri  te(  '\'  ) 
end 
until  inchar  =  quit; 
d i sp 1 aysc reen ( 1 marq i n ,  0,  +1) 
end; 


exc  hanqp  * ) 


(  *  exc  hanqp  * ) 
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procedure  insert? 

C*  this  croc  causes  text  to  be  added  to  the 
buffer  before  the  char  indicated  by  the  cursor 

v  ar 

i*  it     inspos,  insquit:  inteqer? 
finished:  boolean; 


procedure  inserterase; 

f*this  oroc  moves  the  cursor  back  to  the  preceding 
char  and  blanks  out  the  last  entered  char.   wrap- 
around occurs,  in  addition  the  cursor  movement  is 
duplicated  in  the  buffer.*) 


beqi  n 
i  f  bu 
ch 
(wr 
i  f 
f 
b 
i 
end 
b 
i 
c 

w 

end 
i  f 
( 

i 

r 


r 
b 

end 

c 

end  e 

err 

p  ro 

x  ya 

end 

end ; 


f  *  inserterase  *  ) 
findx  >  insPOS  then  beqin 
:=  bu f f er (bu f i ndx  1  ; 
aparound  from  new  emoty  line) 

(ch  =  fillch)  or  (ch  =  filloffch)  then  beqin 
ill  : =  not  fill; 
ufindx  :=  bufindx  -  l; 
nsbeq  : =  i  nsbeq  -  1 

else  if  not  newline  then  beqin 
ufindx  :=  bufindx  -  l; 
nsb*»q  :=  insbeq  -  1# 
h  :=  buffer  (bufindx J  ; 
ri  tp( 1 ef t ,  '  ' ,     1  «f  t  ) 

newline  then  beain 

wraparound  to  end  of  previous  line} 

:=  1  ; 
epeat 

ch  :=  bu f f er  (bu f i ndx  -  ii; 

i  :=  i  ♦  1 
nt  i  1  new  line? 
f  bo  1 n  then 

colno  :=  i  -  1  +  lmarqin 
1 se  if  bop  then 

colno  :=  i  -  1  +  pmarqin 
1 se  if  ch  =  t  abch  then 

colno  :=  i  -  1  ♦  lmarqin  +  tab; 
owno  '-     rowno  -  1? 
ufindx  :=  bufindx  -  l; 
yaddr(colno,  rowno) 

else  (same  line  erase) 

0 1  no  : =  colno  -  1 
1 s  e  beqin 
ormsq( 7) ; 
mpt  C2)  ; 
ddrf col  no,  rowno) 

( *  inserterase  *) 


iai 


procedure  enH li ne ( now raooed :  intpaer); 
(*this  dpoc  removes  extra  blanks  from  the  end  of 
the  Previous  line*  sets  the  1m  op  om,  prepares 
the  crt  screen  to  display  the  next  inserted  char 
and  rotates  chars  to  fill  the  stripped  slots, 
nowraooed  is  the  #  of  chars  to  be  written  to  the 
new  1  i  ne . * ) 


var 

lastch:  char; 

begi  n  f  *  endl  i  ne  * ) 

(remove  extra  blanks  at  eoln  if  Dresent } 
j  :=  0; 
reoeat 

lastcn  :=  buffer  [bufindx  -  j  1  ; 

i  :=  j  ♦  1 

until  lastch  <>  '  ' ; 
insbeg  :=  insbeq  -  j  ♦  cL'> 
bufindx  :=  bufindx  -  j  +  2? 
(  set  marker  \ 
i  f  bop  then  becji  n 

colno  !=  omarqin  +  1; 
bu f f e r Tbu f i ndx 1  :=  om 
end  el se  oegi  n 

colno  : =  1 margi  n  +  1  ; 
bu f f er  (bu f i ndx 1  :=  1m 
end; 

(  orepare  crt  screen  > 
if  rowno  <  lastln  then  begin 
rowno  t  =  rowno  t  1 ; 
b 1 ank 1 n ( rowno ) 
end  e 1 se 

w  r  i  t  e  (  1  f )  ; 
xyaddrCcolno/  rowno); 
(rotate  and  write  wraooed  chars) 
if  nowraoped  >  0  then 
repeat 

bufindx  :=  bufindx  +  l; 
i f  j  >=  2    then 

buf f er  [buf i ndxl  :=  buffer  [bufindx  +  \)' 
write(buffer  [bufindx!  ); 
nowraoped  t=  nowraoped  -  1 
until  nowraoped  =  1 
end?  ( *  endl  i  ne  *  ) 


u2 


orocedure  outchar; 

(*this  proc  adds  another  char  to  the  buffer.*) 


beqi  n 

bufindx  :=  bufindx  t  1 
bu f f er  [bu f i ndx 1  :=  ch; 
insbeq  :=  insbeq  ♦  1 

end? 


(*  Dutehar  *) 


(  *  outchar  * ) 


orocedure  insertchar; 

(*this  proc  adds  a  new  char  to  the  text  buffer  and 
provides  automatic  line  wraparound.   note  that  the 
current  buffindx  contains  a  char  while  insbeq  is 
emot  y  .  * ) 


C  *  insertchar  *  ) 


beqi  n 

if  fill  then 

if  colno  <-     rtiarqin  then 
if  ch  =  t  abc  h  then 

colno  ! =  colno  t  tab 
el se  beqi  n 
wr  i  t  e ( ch  )  ; 
colno  :=  colno  ♦  l; 
out  char 
end 
else  if  ''colno  >  r  m  a  r  q  i  n  )  and  (ch  =  • 

endl ine(O) 
else  beqin  {oonb'ank  char  at  eoln} 
(if  (colno>rmarqin)  and  ( c  h  <>  '   '  )  } 
outchar; 

i  :=  l;  {#  of  wraooed  chars} 
{backtrack  to  soace  before  word} 
repeat 

ch  :=  bu f f e r f bu f i ndx  -  il; 
i  :=  i  +  1 
unt  i 1  ch  =  '  '  ; 

{blank  out  wraooed  chars  on  screen} 
colno  :=  colno  ♦  1  -  i? 
xyaddr (co 1  no f  rowno); 
for  i  :  =  2  t  o  i  do 

w  r  i  t  e  (  '  '  )  t 
{write  wraooed  chars  on  new  line} 
bufindx  :=  bufindx  -  i; 
end  1  i  ne ( i ) J 
colno  : =  colno  +  i 
end 
else 
{no  f i 1 1 i no  or  autowrao} 
outchar; 
{check  for  f ul  1  buf  f er} 
if  insbeq  =  insend  -  1  then 
orompt (10) 
end; 


)  then 


(fuH  buf  fer) 

(  *  insertchar  *) 
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procedure  i  ns  f  orma  t  cmd  J 

(*thie  proc  adds  format  commands  to 

handles  special  insert  entries;  p. a 


the  buffer  and 
tabl es. *  ) 


beqin  (*  i ns forma tcmdc ha r  *) 

if  bop  then 

end  1 i  ne ( 0  ) 
else  if  (ch  =  cr)     and  not  fill  then  beain 

{  i  gnore  c  r  and  fill  } 

c  h  :  =  1  m  ; 

end  1  i  ne ( 0 ) 
end  else  if  ch  =  fiHoffch  then  beqin 

out  char ; 

fill  :=  f al se 
end  else  if  ch  =  fillch  then  beain 

out  c  hap ; 

fill  : =  t  rue 
end 
end/  (*  i ns f o rma t cmdc h a r  *) 

procedure  insorocessfaction:  char); 
(*this  proc  processes  the  inserted  text"  and 
surroundino  text  as  necessary.   note  that 
emptvbuf  indicates  the  creation  of  a  new  file.*) 


bea  i  n 
if  a 

ac 
e  1  se 

ac 
case 

'  A 


f  *  i  nsorocess  * ) 


c  t  i  on  =  accent  then 
tion  :=  'A' 


t  i  on 
act 


beoi 
i  f 


en 

en 

end; 


:=  'Q 

i  on  o  f 


emotybuf  then  beqin 
j mot oma rker ( hot cH ar ,  -1); 
orocessbu f ( i nsoos ,     buflimit) 
d  else  beqi  n 
insquit  :=  inshea  -  1? 
orocessbu f C l nsoos  ,     inshea  -  1) 
d; 
ot  vbu  f  : =  ^alse 


end 
end? 


beai  n 

(no  insertion  occurs> 
i  nsbeq  : =  i nsoos ? 
bufindx  :=  inshea  -  1 

end 

(case) 


f  *  i  nsorocess  * ) 


1  aa 


been  n  (*  insert  *) 

if  emptybuf  then  beain 

rowno  :  =  1  ♦  tisqlns; 

colno  '-    pmarqin  f  1 
end  e 1 se  begi  n 

(*  blank  out  the  end  of  the  line  *) 

xyaddr (co 1  no r   rowno)? 

for  i  :=  colno  to  lastcol  do 
writeC  '  )  ; 

b 1 ank 1 n ( rowno  ♦  1  )  ; 

(*  insert  before  cursor  *  ) 

ch  : =  qet  buf char  C - 1  ) 
end; 

x vaddr f co 1  no »  rowno); 
finished  :=  false? 
insoos  :=  insbeq? 
reoeat 

r  e  a  a  ( c  h  )  ; 

if  newline  then 

insformatcmd 
else  if  textchar  then 

i nsertc  har 
else  if  ch  s  erase  then 

i  nserterase 
else  if  (ch  =  accent)  or  (ch  =  quit)  then  bea 

i  nsprocess (ch ) ; 

finis  hed  : =  true 
end  else  beqi  n 

er  rormsq  ( t> )  ; 

promot  (  2  )  ; 

xyaddr ( co 1  no /  rowno) 
end 
until  finished; 

if  not  emptvbuf  then  begin 
repeat 

ch  :=  oetbufchar(-l) 
until  (bufindx  <=  ins quit)  or  bot; 
d i sp 1 avsc reen ( 1 marq i n ,     0,  +1) 
end  e 1 se 

write(clpar) 
end;  (  *  insert  * ) 
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procedure  locate? 

(*this  proc  performs  a  oattern  search  thru  the 
file  for  the  input  pattern  strino.  and  dosi  t  ions 
the  cursor  at  the  "found"  pattern  or  at  the  end 
of  the  searched  area.*) 


beg  i  n 

errormsq(21 ) 
end  ; 


(*  1 ocate  *) 
C  *  1 ocate  *) 


procedure  move; 

(*this  proc  allows  the  user 

one  olace  to  another  in 

to  oe  moved  is  delimit«»c 

The  new  locn  is  also  set  with  the 

Note  the  moved  material  will  preceed  the 

cursor  post  i  on* ) 


to  move  text  f  r om 
♦"he  buffer.   The  bodv 
bv  ?    cursor  settings 
cursor. 


been  n 

nul  1 
end; 


f  *  move  * ) 
( *  move  *  ) 


procedure  replace; 
(*this  proc  will  utilize  the 
replace  a  specified  pattern 
either  once  ormultiole  time 
delimited  area    of  text.*) 


locate  d  roc  t  o 
//  another  one 
i  w/in  the 


bea  i  n 

er rormsg (21) 

end; 


(  *  replace  * ) 
(  *  rep  lace  * ) 


'4  6 


Drocedure  Addfile; 

(*this  proc  adds  the  use r-SDec i f i ed  file  to  the 

buffer  contents  at  the  locn  indicated  bv  nm*) 

var 

addDOSr  addquit-:  integer; 


); 


-i ) ; 


1 ; 


=  Ch 


beqi  n 

f  i 1 ename  (  *  A 
set  marker ; 
checkmarkersf  '  A  '  )  ; 
if  markersok  then  beain 
addpos  :=  bufindx; 
reset ( i n f i 1 e »  name)'* 
JTptomarkerCbotcharr 
jmotomarkerCnm,  +1); 
read (infile*  ch); 
reDeat 

read ( i  nf  i 1 e#  ch); 
bufindx  :=  bufindx 
buffer  fbu  f  i  ndx ] 
until  eof(infile)  or 
insbeq  :=  bufindx  t  l; 
addquit  :=  bufindx; 
if  not  eof(infile)  then 

er rormsq ( 23 ) 
else  beqi  n 
p  romot ( 8  )  ? 
reoeat 

read ( i  nc  har ) 
unt  i 1  i  nc  ha  r  in 
if  i  nchar  =  ' y ' 
del  markers 
end? 

orocessbuf ( addoos 
reoeat 

ch  ;=  aetbuf char  C-l ) 
until  fbufindx  <=  addquit) 
di sp1 aysc reen ( 1 marqi n ,  0, 
end 
end; 


O  Addf i 1 e  *) 


(bufindx  =  insend 


1  ) 


f  * 

r  h 


'  1 


addqu  it); 


or 

1  ) 


bof 


(*  Addf i 1 e  *) 
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Xt ract  file; 

rites  the  buffer  contents  delimited 
file*) 


out  to 


procedure 
(*t h i  s  ppoc 
by  bm  and  1 m 
beq  i  n 

f  i  1 ename  C ' X ' ) ; 
set  marker? 
checkmarkers( 'X' ) ; 
if  markersok  then  beqin 
rewr i t e ( out f i 1 e t     name); 
write(outfile?  botchar); 
i  -not  oma  r  ker  (bot  ch  a  r  ,     -1) 
t mot omar ker (bm ,     ♦ 1 ) ; 
ch  :=  aet  buf  cha  r  C  +■  1  )  ; 


(*  Xt  ract  file  *) 


reoeat 

wr  i  t  e (out  f  i 1 e 

,  ch); 

ch  :  =  aet buf c 

har (  +  1  ) 

until  c  h  =  em ; 

wr i  t e (out  f  i le> 

eot  char ) 

; 

rewrite(outfi le 

)  ;  (force 

Drompt ( 8 ) ; 

reoeat 

readCinchar) 

until  i  nchar  in 

[•n»,  ' 

v 

if  i  nchar  =  ' y ' 

t  hen 

de 1  ma  rker s 

end 

end 

/ 

dumo  of  1 ast I/O  bl ock ) 


]  ; 


(*    Xt  ract  file  *  ) 


1UR 


beqi  n  (*  edi  t  *) 

if  f ileread  then  begin 
exit  :  =  false? 
orompt ( 1 ) ; 
reDeat 

xy addr (co 1  no  *     rowno); 
read (inchar); 
if  inchar  in 

<cr#down,left,riaht,uD,  '  D  *  ,   '  U  '  ,  •  d  '  ,  '  • 
if  not  emptybuf  then 

movecur sor 
e  1  se 

errormsq(2)  (*  text  not  present  *) 
else  if  inchar  in  edemdset  then  beqin 
case  inchar  of 

•  A'  : 

beqi  n 

prompt  C  2 1 ) t 

Addf i 1 e 
end; 
'c'  : 
beoi  n 

prompt ( 6 )  ; 

cooy 
end? 
•Cf  : 

{Cursor  movement} 
oromot ( 23 )  ? 
•d'  : 
beoi  n 

prompt ( 5 ) ; 

delete 
end? 

•  i  •  : 

beqi  n 

prompt  C  2 ) ; 

insert 
end? 


b  '  1  then 


beqi  n 

prompt (17); 
1 ocat  e 

end; 
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beq  i  n 

promot  C  7  )  ; 

move 
end? 
l'  ' 
exit  :=  true? 


beqi  n 

promot ( 1 P ) ; 
reel  ace 
end; 
•s'  : 
bea  i  n 

prompt (16); 
set  marker 
end; 
•x'  : 
bea  i  n 

prompt ( 20  )  ; 
exc  hanqe 
end; 
•x'  : 
beq  i  n 

oromot  (  22  )  ; 
Xt  ract  file 
end 
end;  ( *  edit  case 
if  not  exit  then 
promot (  1  ) 
end  e 1 se  beqi  n 
e  r rormsq ( 4 ) ; 
promot ( 1  ) 
end 
until  exit 
end  e 1 se 

er rormsq ( 3) 
end; 


(*  edi  t  *) 


150 


bea  i  n 


mainline  of  scope  **) 


[uo,  clown  ,  p  i  ah  t  ,  1  ef  t 


f  '] 

c  r 


•b' 


X'] 


(*this  is  the  driver  for  the  command  level  and  thus 
SCOPF.   It  allows  the  user  to  read  in  and  process 
the  desired  file?  edit  and  format  the  file  in  the 
buffer  and  to  save  the  file  by  writino.  it  to  the 
printer  or  to  storage.*) 


s  t  od  : =  false? 
namingfile  :=  false? 
f  i 1 eread  : =  false; 
cmdset  :=  [,r,»  'w', 
edcmdset  := 

1   n   ^   1  i      Q      §      C      § 

cursormoveset  : = 

terminal?  (*  oromot  mso  in  proc  *) 

nri nt  er ; 

setdefaul ts; 

set  f ormat cmds ; 

wr i t e (c 1  ear ) ;  (*  clearscreen 

reoeat 

orompt  ( 4  )  ; 
suse  r  i  nou t  f  1  )  ; 
cmdchar  : =  c*d  [  1 1  ; 
if  cmdchar  in  cmdset  then 
case  cmdc  ha  r  of 
r  '  : 

readraw ; 
w'  : 
w  r  i  t  e  r  a  w  ; 


U'l 


list  processed ; 
edi  t  ; 

r : 

stop  : =  t  rue ; 


format 
end  C*  decode  case  *) 
el  se 

error msqf 1 ) 
until  stoo; 
wr  i  t e (c 1  ear  ) 
end . 
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